diff options
author | Salvador FandiƱo <sfandino@yahoo.com> | 2005-06-15 01:27:00 -0700 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 09:45:59 +0000 |
commit | 2e8a6c53cfdc6b1782b20f4b56eab80f0546bbb3 (patch) | |
tree | 2cdcc82604bba4d7d8d0d21d9fa1f9d69d9bb710 /op.c | |
parent | df451b2ad0d680ea3a9d825aa3ecb3c2ce23bbb4 (diff) | |
download | perl-2e8a6c53cfdc6b1782b20f4b56eab80f0546bbb3.tar.gz |
Subs with builtin attributes shouldn't be made constant
Subject: Re: [perl #36297] builtin attrs on subrutine declarations
Message-ID: <20050615152700.96320.qmail@web52702.mail.yahoo.com>
p4raw-id: //depot/perl@24865
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4295,7 +4295,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) } #endif - if (!block || !ps || *ps || attrs) + if (!block || !ps || *ps || attrs || (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS)) const_sv = Nullsv; else const_sv = op_const_sv(block, Nullcv); |