use constant _PERL_LT_5_8_4 => ($] < 5.008004) ? 1 : 0;
-our $VERSION = '1.002002'; # 1.2.2
+our $VERSION = '1.004000'; # 1.4.0
sub VERSION {
for ($_[1]) {
my $extras_load_warned;
+our $Smells_Like_VCS = (-e '.git' || -e '.svn'
+ || (-e '../../dist.ini' && (-e '../../.git' || -e '../../.svn')));
+
sub import {
strict->import;
warnings->import(FATAL => 'all');
my $extra_tests = do {
if (exists $ENV{PERL_STRICTURES_EXTRA}) {
if (_PERL_LT_5_8_4 and $ENV{PERL_STRICTURES_EXTRA}) {
- die 'PERL_STRICTUTRES_EXTRA checks are not available on perls older than 5.8.4, '
+ die 'PERL_STRICTURES_EXTRA checks are not available on perls older than 5.8.4: '
. "please unset \$ENV{PERL_STRICTURES_EXTRA}\n";
}
$ENV{PERL_STRICTURES_EXTRA};
} elsif (! _PERL_LT_5_8_4) {
- !!($0 =~ /^x?t\/.*\.t$/
- and (-e '.git' or -e '.svn'))
+ !!((caller)[1] =~ /^(?:t|xt|lib|blib)/
+ and $Smells_Like_VCS)
}
};
if ($extra_tests) {
use strict;
use warnings FATAL => 'all';
-except when called from a file where $0 matches:
+except when called from a file which matches:
- /^x?t\/.*\.t$/
+ (caller)[1] =~ /^(?:t|xt|lib|blib)/
and when either '.git' or '.svn' is present in the current directory (with
the intention of only forcing extra tests on the author side) - or when the