use Test::Harness qw(runtests execute_tests);
BEGIN {
- $ENV{HARNESS_OPTIONS} = 'j:c';
+ $ENV{HARNESS_OPTIONS} = 'c';
unshift @INC, 'modules/override';
push @INC, 'modules/fallback';
}
sub find_files_to_test {
my @files;
- File::Find::find(sub { push @files, $File::Find::name if (-f _) && m/\.t$/ }, 't');
+ File::Find::find(sub { push @files, $File::Find::name if (-f $_) && m/\.t$/ }, 't');
return @files;
}