diff --git a/perl-Class-Inner-0.1-perl510-testfix.patch b/perl-Class-Inner-0.1-perl510-testfix.patch
new file mode 100644
index 0000000..fd8080c
--- /dev/null
+++ b/perl-Class-Inner-0.1-perl510-testfix.patch
@@ -0,0 +1,9 @@
+diff -up Class-Inner-0.1/t/basic.t.BAD Class-Inner-0.1/t/basic.t
+--- Class-Inner-0.1/t/basic.t.BAD	2008-03-06 14:09:44.000000000 -0500
++++ Class-Inner-0.1/t/basic.t	2008-03-06 14:10:13.000000000 -0500
+@@ -45,4 +45,4 @@ is($ic->poly(), 'b',      '$ic->poly is 
+ 
+ $ic = undef;
+ 
+-ok(!$ic_class->isa('Parent'), 'Class dismissed');
++ok(!(ref $ic_class && $ic_class->isa('Parent')), 'Class dismissed');
diff --git a/perl-Class-Inner.spec b/perl-Class-Inner.spec
index a0e4f83..e61b6d1 100644
--- a/perl-Class-Inner.spec
+++ b/perl-Class-Inner.spec
@@ -1,12 +1,14 @@
 Name:           perl-Class-Inner
 Version:        0.1
-Release:        5%{?dist}
+Release:        6%{?dist}
 Summary:        A perlish implementation of Java like inner classes
 
 Group:          Development/Libraries
 License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/Class-Inner/
 Source0:        http://search.cpan.org/CPAN/authors/id/P/PD/PDCAWLEY/Class-Inner-%{version}.tar.gz
+# Upstream RT bug 33533
+Patch0:		perl-Class-Inner-0.1-perl510-testfix.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch:      noarch
@@ -22,6 +24,7 @@ parent class's method.
 
 %prep
 %setup -q -n Class-Inner-%{version}
+%patch0 -p1
 
 
 %build
@@ -53,6 +56,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Thu Mar  6 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 0.1-6
+- fix test for perl 5.10
+
 * Thu Mar  6 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 0.1-5
 - rebuild for new perl