diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2002-03-27 15:52:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 00:58:36 +0000 |
| commit | d3cea301eb4cb4c87b2540dea791ab175d5a0a51 (patch) | |
| tree | 2b307dd59fbb7707814d2751b48c95c9043b01d9 /t/op | |
| parent | ccac678058be47dbdd09dd870770b862c09e236a (diff) | |
| download | perl-d3cea301eb4cb4c87b2540dea791ab175d5a0a51.tar.gz | |
Re: perl 5.7.3 + XS lvalue subs
Message-Id: <200203280152.UAA415562@leggy.zk3.dec.com>
p4raw-id: //depot/perl@15565
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/attrs.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 611fb66638..8e04936f8d 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -174,6 +174,12 @@ BEGIN {++$ntests} mytest '', "@attrs", "locked method Z"; BEGIN {++$ntests} +# Test ability to modify existing sub's (or XSUB's) attributes. +eval 'package A; sub X { $_[0] } sub X : lvalue'; +@attrs = eval 'attributes::get \&A::X'; +mytest '', "@attrs", "lvalue"; +BEGIN {++$ntests} + # Begin testing attributes that tie { |