Don't fail fatally if PATH is not set.

This fixes micromega in certain environments.

1 files changed, 6 insertions, 4 deletions

diff --git a/lib/system.ml b/lib/system.ml
index 9bdcecef1..0ad43a742 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -149,10 +149,12 @@ let is_in_path lpath filename =
   with Not_found -> false
 
 let is_in_system_path filename =
-  let path = try Sys.getenv "PATH"
-             with Not_found -> error "system variable PATH not found" in
-  let lpath = CUnix.path_to_list path in
-  is_in_path lpath filename
+  try
+    let lpath = CUnix.path_to_list (Sys.getenv "PATH") in
+    is_in_path lpath filename
+  with Not_found ->
+    msg_warning (str "system variable PATH not found");
+    false
 
 let open_trapping_failure name =
   try open_out_bin name