diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-10 06:04:40 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-11 06:30:23 +0000 |
| commit | 0256094b4c2296e320dfc83acdb944c28ae745d0 (patch) | |
| tree | 69af157ea0bbb4169614851b9171468e5fdced43 /t/op/attrs.t | |
| parent | be24517c7d6dbd51b4477cded03d9c0853e614ee (diff) | |
| download | perl-0256094b4c2296e320dfc83acdb944c28ae745d0.tar.gz | |
Re: [patch] GvSHARED
Date: Sat, 10 Feb 2001 14:04:40 -0800 (PST)
Message-ID: <Pine.LNX.4.21.0102101356000.15298-100000@mako.covalent.net>
Subject: Re: [patch] GvSHARED
From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 10 Feb 2001 15:00:54 -0800 (PST)
Message-ID: <Pine.LNX.4.21.0102101453220.15298-100000@mako.covalent.net>
Subject: [patch] attributes.pm support for `shared'
From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 10 Feb 2001 20:08:48 -0800 (PST)
Message-ID: <Pine.LNX.4.21.0102102004190.15298-100000@mako.covalent.net>
our() attributes were ignored, our :shared pieces missing,
allow attributes.pm to turn on shared.
p4raw-id: //depot/perl@8766
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} |