Retour en arriere sur le trait Foo.ml ou foo.ml comme source du module Foo: sur un file system case-insensitive, cela fait produire a ocamldep des dependances que make ne comprend pas

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4901 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

utils/misc.ml

@@ -76,16 +76,7 @@ let find_in_path path name =
   end
 
 let find_in_path_uncap path name =
-  let uname = String.uncapitalize name in
-  let rec try_dir = function
-    [] -> raise Not_found
-  | dir::rem ->
-      let fullname = Filename.concat dir name in
-      let ufullname = Filename.concat dir uname in
-      if Sys.file_exists fullname then fullname
-      else if Sys.file_exists ufullname then ufullname
-      else try_dir rem
-  in try_dir path
+  find_in_path path (String.uncapitalize name)
 
 let remove_file filename =
   try