diff --git a/perl-Test-Perl-Critic-1.01-fixtest.patch b/perl-Test-Perl-Critic-1.01-fixtest.patch
new file mode 100644
index 0000000..6ce99da
--- /dev/null
+++ b/perl-Test-Perl-Critic-1.01-fixtest.patch
@@ -0,0 +1,21 @@
+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);
+ }
+ 
diff --git a/perl-Test-Perl-Critic.spec b/perl-Test-Perl-Critic.spec
index 4e68cf9..3ca6071 100644
--- a/perl-Test-Perl-Critic.spec
+++ b/perl-Test-Perl-Critic.spec
@@ -1,12 +1,13 @@
 Name:           perl-Test-Perl-Critic
 Version:        1.01
-Release:        2%{?dist}
+Release:        3%{?dist}
 Summary:        Use Perl::Critic in test programs
 
 Group:          Development/Libraries
 License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/Test-Perl-Critic/
 Source0:        http://www.cpan.org/authors/id/T/TH/THALJEF/testperlcritic/Test-Perl-Critic-%{version}.tar.gz
+Patch0:         perl-Test-Perl-Critic-1.01-fixtest.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch:      noarch
@@ -26,6 +27,7 @@ flexibility), see the criticism pragma.
 
 %prep
 %setup -q -n Test-Perl-Critic-%{version}
+%patch0 -p1
 
 
 %build
@@ -55,6 +57,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Tue Jan 15 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 1.01-3
+- patch for test failure
+
 * Mon Jan 14 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 1.01-2
 - rebuild for new perl