[Fwd: [PATCH] Pod::Find should ignore SCM files and dirs]

Message-ID: <40B7BD1C.40309@sun.com>

p4raw-id: //depot/perl@22886

diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm
index 21af123..bfd6f40 100644 (file)
--- a/lib/Pod/Find.pm
+++ b/lib/Pod/Find.pm
@@ -13,7 +13,7 @@
 package Pod::Find;
 
 use vars qw($VERSION);
-$VERSION = 0.24;   ## Current version of this package
+$VERSION = 0.24_01;   ## Current version of this package
 require  5.005;   ## requires this Perl version or later
 use Carp;
 
@@ -201,7 +201,11 @@ sub pod_find
         File::Find::find( sub {
             my $item = $File::Find::name;
             if(-d) {
-                if($dirs_visited{$item}) {
+                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn)$}) {
+                    $File::Find::prune = 1;
+                    return;
+                }
+                elsif($dirs_visited{$item}) {
                     warn "Directory '$item' already seen, skipping.\n"
                         if($opts{-verbose});
                     $File::Find::prune = 1;