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