You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
819 B
22 lines
819 B
17 years ago
|
diff -up Test-Perl-Critic-1.01/lib/Test/Perl/Critic.pm.BAD Test-Perl-Critic-1.01/lib/Test/Perl/Critic.pm
|
||
|
|
--- Test-Perl-Critic-1.01/lib/Test/Perl/Critic.pm.BAD 2008-01-15 11:21:37.000000000 -0500
|
||
|
|
+++ Test-Perl-Critic-1.01/lib/Test/Perl/Critic.pm 2008-01-15 11:22:10.000000000 -0500
|
||
|
|
@@ -92,7 +92,7 @@ sub critic_ok {
|
||
|
|
|
||
|
|
sub all_critic_ok {
|
||
|
|
|
||
|
|
- my @dirs = @_ ? @_ : _starting_points();
|
||
|
|
+ my (@dirs) = @_ ? @_ : _starting_points();
|
||
|
|
my @files = all_code_files( @dirs );
|
||
|
|
$TEST->plan( tests => scalar @files );
|
||
|
|
|
||
|
|
@@ -103,7 +103,7 @@ sub all_critic_ok {
|
||
|
|
#---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub all_code_files {
|
||
|
|
- my @dirs = @_ ? @_ : _starting_points();
|
||
|
|
+ my (@dirs) = @_ ? @_ : _starting_points();
|
||
|
|
return Perl::Critic::Utils::all_perl_files(@dirs);
|
||
|
|
}
|
||
|
|
|