Re: new C3 MRO patch

[perl5.git] / ext / B / t / b.t

diff --git a/ext/B/t/b.t b/ext/B/t/b.t
index b750f12..e0e21f4 100755 (executable)
--- a/ext/B/t/b.t
+++ b/ext/B/t/b.t
@@ -169,7 +169,7 @@ is(B::opnumber("chop"), 38, "Testing opnumber with opname (chop)");
 {
     no warnings 'once';
     my $sg = B::sub_generation();
-    *Whatever::hand_waving = sub { };
+    *UNIVERSAL::hand_waving = sub { };
     ok( $sg < B::sub_generation, "sub_generation increments" );
 }