Fix bug stopping this working in real dists, bump version

bobtfish · Jul 18, 2009 · 5bcec1c · 5bcec1c
1 parent a2a19af
commit 5bcec1c
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Test-NoTabs
 
+0.3  2009-07-18
+     - Fix File::Find regex which I had broken.
+
 0.2  2009-07-17
      - Pod corrections pointed out by daxim in #moose
 

diff --git a/README b/README
@@ -2,11 +2,11 @@ NAME
     Test::EOL - Check the correct line endings in your project
 
 SYNOPSIS
-    "Test::EOL" lets you check the presence of tabs in your perl code. It
-    report its results in standard "Test::Simple" fashion:
+    "Test::EOL" lets you check the presence of windows line endings in your
+    perl code. It report its results in standard "Test::Simple" fashion:
 
       use Test::EOL tests => 1;
-      eol_unix_ok( 'lib/Module.pm', 'Module is tab free');
+      eol_unix_ok( 'lib/Module.pm', 'Module is ^M free');
 
     Module authors can include the following in a t/eol.t and have
     "Test::EOL" automatically find and check all perl files in a module
@@ -22,7 +22,7 @@ SYNOPSIS
 
 DESCRIPTION
     This module scans your project/distribution for any perl files (scripts,
-    modules, etc) for the presence of tabs.
+    modules, etc) for the presence of windows line endings.
 
 EXPORT
     A list of functions that can be exported. You can delete this section if

diff --git 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.2';
+$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