parent
fc4da8936e
commit
0a5b90bb2f
@ -1 +1 @@
|
|||||||
Test-Perl-Critic-1.02.tar.gz
|
/Test-Perl-Critic-[0-9.]*.tar.gz
|
||||||
|
@ -1,21 +0,0 @@
|
|||||||
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);
|
|
||||||
}
|
|
||||||
|
|
Loading…
Reference in new issue