diff options
| author | herbelin | 2001-09-20 12:32:30 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-20 12:32:30 +0000 |
| commit | afd2a292d5774aa08198615a20dd9db3753826d1 (patch) | |
| tree | ab5c12e68172d9a8bb7d6ed7d2f96c5ad1406c94 /lib | |
| parent | 03ac473b65811057db1e3b2f21c8ff59c4c39df4 (diff) | |
On ignore les répertoires invisibles dans all_subdirs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2015 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/system.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/system.ml b/lib/system.ml index bb3c711307..81dda51f9d 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -30,7 +30,8 @@ let all_subdirs root = try while true do let f = readdir dirh in - if f <> "." && f <> ".." && (not Coq_config.local or (f <> "CVS")) then + if f <> "" && f.[0] <> '.' && (not Coq_config.local or (f <> "CVS")) + then let file = Filename.concat dir f in try if (stat file).st_kind = S_DIR then begin |