use vars qw( $VERSION $PERL $UNTAINT_PATTERN $PERL_PATTERN);
-$VERSION = '0.9';
+$VERSION = '1.0';
$PERL = $^X || 'perl';
$UNTAINT_PATTERN = qr|^([-+@\w./:\\]+)$|;
my @files = _all_perl_files( @_ );
_make_plan();
foreach my $file ( sort @files ) {
- notabs_ok($file, "no tabs in $file");
+ notabs_ok($file, "No tabs in '$file'");
}
}