diff options
Diffstat (limited to 'lib/system.ml')
-rw-r--r-- | lib/system.ml | 10 |
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 |