X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fref.t;h=a2baab8e3b911f339fced7b54d722cdab3677655;hb=5cec1e3b3b86ef84555da325ea92c9cc0b18b7b2;hp=618cfcc263087978eba75f0c22d8b33507d91ff0;hpb=0dd88869d3c6272dc66f202c5be0f40bfb94fccd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/ref.t b/t/op/ref.t
index 618cfcc..a2baab8 100755
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -241,11 +241,11 @@ print $$_,"\n";
     package A;
     sub new { bless {}, shift }
     DESTROY { print "# destroying 'A'\nok 51\n" }
-    package B;
+    package _B;
     sub new { bless {}, shift }
-    DESTROY { print "# destroying 'B'\nok 50\n"; bless shift, 'A' }
+    DESTROY { print "# destroying '_B'\nok 50\n"; bless shift, 'A' }
     package main;
-    my $b = B->new;
+    my $b = _B->new;
 }
 
 # test if $_[0] is properly protected in DESTROY()