From 5f29a92c0648afd4d9e46de79ab00d0c4b901ff0 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Tue, 9 Feb 2016 16:36:05 +0100
Subject: Don't fail fatally if PATH is not set.

This fixes micromega in certain environments.
---
 lib/system.ml | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib/system.ml')

diff --git a/lib/system.ml b/lib/system.ml
index 9bdcecef19..0ad43a7423 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
-- 
cgit v1.2.3