skip all dot-dirs (eg .git .svn)

bingos · Jul 18, 2011 · dd01ee4 · dd01ee4
1 parent 0dfbb29
commit dd01ee4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/whatdists.pl b/whatdists.pl
@@ -168,6 +168,8 @@ sub _all_installed {
                 wanted      => sub {
 
                     unless (/\.pm$/i) {
+                        # skip all dot-dirs (eg .git .svn)
+                        $File::Find::prune = 1 if -d $File::Find::name and /^\.\w/;
                         # don't reenter a dir we've already done
                         $File::Find::prune = 1 if $dir_done{ $File::Find::name };
                         return;