This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #119351] the test note isn't a note but an object description
authorTony Cook <tony@develop-help.com>
Tue, 27 Aug 2013 05:13:00 +0000 (15:13 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 27 Aug 2013 05:13:00 +0000 (15:13 +1000)
avoid:

ok 239 - GV on a lexical sub isa B::SPECIAL isa B::SPECIAL

ext/B/t/b.t

index 262baff..cbf9e1f 100644 (file)
@@ -405,7 +405,7 @@ SKIP:
         ok($cv, "make a B::CV from a lexical sub reference");
         isa_ok($cv, "B::CV");
         my $gv = $cv->GV;
-        isa_ok($gv, "B::SPECIAL", "GV on a lexical sub isa B::SPECIAL");
+        isa_ok($gv, "B::SPECIAL", "GV on a lexical sub");
         my $hek = $cv->NAME_HEK;
         is($hek, "bar", "check the NAME_HEK");
     }