View | Details | Raw Unified | Return to bug 34303
Collapse All | Expand All

(-)a/t/00-testcritic.t (-3 / +7 lines)
Lines 14-18 if ( $EVAL_ERROR ) { Link Here
14
}
14
}
15
15
16
Test::Perl::Critic->import( -profile => '.perlcriticrc');
16
Test::Perl::Critic->import( -profile => '.perlcriticrc');
17
my @dirs = `git ls-tree -d --name-only master`;
17
my @files = `git ls-tree -r HEAD --name-only | grep -E '.*\\.(pl|pm)'`;
18
all_critic_ok(@dirs) if @dirs;
18
for my $file ( @files ) {
19
    chomp $file;
20
    critic_ok($file);
21
}
22
23
done_testing();
19
- 

Return to bug 34303