Fix bad regex. RT#75968

diff --git a/Changes b/Changes
index f2b5895..a63c1d8 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Test-EOL
 
+   - Fix bad regex matching directories containing 'svn', not just .svn'
+     directories. RT#75968
+
 1.1  2012-01-16
     - Fix test fails on < 5.8 perls
     - Fix t/13-latin1.t failures on Win32 and under TB1.5

diff --git a/lib/Test/EOL.pm b/lib/Test/EOL.pm
index fbbaa2f..bd41a81 100644 (file)
--- a/lib/Test/EOL.pm
+++ b/lib/Test/EOL.pm
@@ -45,7 +45,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[\\/]!); # 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