diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2002-03-28 19:52:24 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-29 07:28:29 +0000 |
| commit | 020f0e03c64f319bb529fa80a5fe18adf2ad1fa6 (patch) | |
| tree | 4bb60c2efda08588ea353804740d6322e5ae87fd /t/op/attrs.t | |
| parent | 6cd7d6d64cacefc21eb167e634fbe11515e68308 (diff) | |
| download | perl-020f0e03c64f319bb529fa80a5fe18adf2ad1fa6.tar.gz | |
Re: perl 5.7.3 + XS lvalue subs
Message-Id: <200203290552.AAA47443@leggy.zk3.dec.com>
p4raw-id: //depot/perl@15592
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 8e04936f8d..1ed92a1a8d 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -180,6 +180,14 @@ eval 'package A; sub X { $_[0] } sub X : lvalue'; mytest '', "@attrs", "lvalue"; BEGIN {++$ntests} +# Above not with just 'pure' built-in attributes. +sub Z::MODIFY_CODE_ATTRIBUTES { (); } +eval 'package Z; sub L { $_[0] } sub L : Z lvalue'; +@attrs = eval 'attributes::get \&Z::L'; +mytest '', "@attrs", "lvalue Z"; +BEGIN {++$ntests} + + # Begin testing attributes that tie { |