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);
 }