From a9bf7d8e017488d94e8491c432a77a9a178be3a8 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Sun, 3 Apr 2011 11:39:48 +0000
Subject: Fix last commit about coqdep: not everyone has a user-contrib dir

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13953 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coqdep.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/coqdep.ml b/tools/coqdep.ml
index e725535fc0..bfd0e9a070 100644
--- a/tools/coqdep.ml
+++ b/tools/coqdep.ml
@@ -197,7 +197,8 @@ let coqdep () =
     let coqlib = Envars.coqlib () in
     add_rec_dir add_coqlib_known (coqlib//"theories") ["Coq"];
     add_rec_dir add_coqlib_known (coqlib//"plugins") ["Coq"];
-    add_rec_dir add_coqlib_known (coqlib//"user-contrib") []
+    let user = coqlib//"user-contrib" in
+    if Sys.file_exists user then add_rec_dir add_coqlib_known user []
   end;
   List.iter (fun (f,d) -> add_mli_known f d) !mliAccu;
   List.iter (fun (f,d) -> add_mllib_known f d) !mllibAccu;
-- 
cgit v1.2.3