From 108e88cafee662932c99a83230f674f648866613 Mon Sep 17 00:00:00 2001
From: letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 13 Mar 2013 00:00:04 +0000
Subject: Restrict (try...with...) to avoid catching critical exn (part 5)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16281 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/envars.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib/envars.ml')

diff --git a/lib/envars.ml b/lib/envars.ml
index 84a41f8e4..cf3d6503d 100644
--- a/lib/envars.ml
+++ b/lib/envars.ml
@@ -36,9 +36,8 @@ let path_to_list p =
   let sep = if String.equal Sys.os_type "Win32" then ';' else ':' in
     String.split sep p
 
-let user_path () = 
-  let path = try Sys.getenv "PATH" with _ -> raise Not_found in
-  path_to_list path 
+let user_path () =
+  path_to_list (Sys.getenv "PATH") (* may raise Not_found *)
 
 let rec which l f =
   match l with
-- 
cgit v1.2.3