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
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
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
use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN);
-$VERSION = '0.2';
+$VERSION = '0.3';
$PERL = $^X || 'perl';
$UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|;
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