X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fattrs.t;h=e8e11b3abfd139da33cbd67ad81a01552e71fa40;hb=0256094b4c2296e320dfc83acdb944c28ae745d0;hp=f9212e4c26229cd4a65b0402983dd79ea013a00b;hpb=be24517c7d6dbd51b4477cded03d9c0853e614ee;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/attrs.t b/t/op/attrs.t
index f9212e4..e8e11b3 100644
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -150,11 +150,12 @@ sub X::MODIFY_CODE_ATTRIBUTES { die "$_[0]" }
 sub X::foo { 1 }
 *Y::bar = \&X::foo;
 *Y::bar = \&X::foo;	# second time for -w
-eval 'package Z; sub Y::bar : locked';
+eval 'package Z; sub Y::bar : foo';
 mytest qr/^X at /;
 BEGIN {++$ntests}
 
-my @attrs = eval 'attributes::get \&Y::bar';
+eval 'package Z; sub Y::baz : locked {}';
+my @attrs = eval 'attributes::get \&Y::baz';
 mytest '', "@attrs", "locked";
 BEGIN {++$ntests}