X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FEOL.pm;h=464db7f502aec56f7d7afb408e5d9cb3a230bca9;hb=5bcec1c99b6f7b377d6baadeeff39c8eb5a06b9a;hp=2d616d0b0c936bd4d0447c9e5b1b15cfda00b3dc;hpb=29330dd1e81996eba67b5071ea4e44cd3278d041;p=catagits%2FTest-EOL.git diff --git a/lib/Test/EOL.pm b/lib/Test/EOL.pm index 2d616d0..464db7f 100644 --- a/lib/Test/EOL.pm +++ b/lib/Test/EOL.pm @@ -10,7 +10,7 @@ use File::Find; use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN); -$VERSION = '0.1'; +$VERSION = '0.3'; $PERL = $^X || 'perl'; $UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|; @@ -46,7 +46,7 @@ sub _all_files { my @base_dirs = @_ ? @_ : File::Spec->catdir($Bin, $updir); my @found; my $want_sub = sub { - return if ($File::Find::dir =~ m![\\/]?CVS[\\/]|[\\/]?.svn[\\/]|[\\/]?.git[\\/]!); # Filter out cvs or subversion dirs/ + return if ($File::Find::dir =~ m![\\/]?CVS[\\/]|[\\/]?.svn[\\/]!); # Filter out cvs or subversion dirs/ return if ($File::Find::dir =~ m![\\/]?blib[\\/]libdoc$!); # Filter out pod doc in dist return if ($File::Find::dir =~ m![\\/]?blib[\\/]man\d$!); # Filter out pod doc in dist return if ($File::Find::name =~ m!Build$!i); # Filter out autogenerated Build script