From: Alan Burlison <Alan.Burlison@uk.sun.com>
Date: Fri, 28 May 2004 23:28:44 +0000 (+0100)
Subject: [Fwd: [PATCH] Pod::Find should ignore SCM files and dirs]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfc878f226e9b733eaca934d1cde9601e12ff9bb;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;