10 lines
399 B
Diff
10 lines
399 B
Diff
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');
|