Commits

Shlomi Fish committed 58849a7

find-vcs: Add a V flag and add more excludes.

  • Participants
  • Parent commits 5d000a7

Comments (0)

Files changed (1)

shlomif-settings/home-bin-executables/bin/find-version-control-repositories

 
 while (my $r = $ff->next())
 {
-    if ($r =~ m#\A(\./)?(?:apps/perl/brew|Backup/(?:web-hosting-backup/hostgator)|Download/Arcs/Perl/minicpan/authors|Mail|\.purple)\z#)
+    if ($r =~ m#\A(\./)?(?:apps/perl/brew|Backup/(?:web-hosting-backup/hostgator)|Download/Arcs/Perl/minicpan/authors|Mail|\.purple|\.ccache|\.cpan|\.cpanplus)\z#)
     {
         $ff->prune();
     }
         print "$r\n";
         $ff->prune();
     }
-
-=begin foo
-    else
+    elsif ($ENV{V})
     {
         print STDERR "Traversing <<$r>>\n";
     }
-=end foo
-
-=cut
-
 }