From: Tomas Doran Date: Fri, 15 Jun 2012 22:21:36 +0000 (-0500) Subject: Fix to ignore inc/ directory used by Module::Install X-Git-Tag: 1.3~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-EOL.git;a=commitdiff_plain;h=27c70d46eb3bc7b0f840b7d31fef75e654c88592 Fix to ignore inc/ directory used by Module::Install --- diff --git a/Changes b/Changes index 0022036..2b403c9 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,7 @@ Revision history for Test-EOL + - Fix to ignore inc/ directory used by Module::Install. + 1.2 - Fix bad regex matching directories containing 'svn', not just .svn' directories. RT#75968 diff --git a/lib/Test/EOL.pm b/lib/Test/EOL.pm index bd41a81..82e2be6 100644 --- a/lib/Test/EOL.pm +++ b/lib/Test/EOL.pm @@ -48,6 +48,7 @@ sub _all_files { 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::dir =~ m![\\/]?inc!); # Filter out Module::Install stuff return if ($File::Find::name =~ m!Build$!i); # Filter out autogenerated Build script return unless (-f $File::Find::name && -r _); push @found, File::Spec->no_upwards( $File::Find::name );