diff options
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index f9212e4c26..e8e11b3abf 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} |