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 /op.c | |
| 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 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -4842,6 +4842,10 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) /* already defined (or promised)? */ if (exists || GvASSUMECV(gv)) { if (!block && !attrs) { + if (CvFLAGS(PL_compcv)) { + /* might have had built-in attrs applied */ + CvFLAGS(cv) |= (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS); + } /* just a "sub foo;" when &foo is already defined */ SAVEFREESV(PL_compcv); goto done; |