From 020f0e03c64f319bb529fa80a5fe18adf2ad1fa6 Mon Sep 17 00:00:00 2001 From: Spider Boardman Date: Thu, 28 Mar 2002 19:52:24 -0500 Subject: Re: perl 5.7.3 + XS lvalue subs Message-Id: <200203290552.AAA47443@leggy.zk3.dec.com> p4raw-id: //depot/perl@15592 --- op.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'op.c') diff --git a/op.c b/op.c index 98d42daf0e..9b07a2ffba 100644 --- a/op.c +++ b/op.c @@ -4899,6 +4899,8 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) */ if (cv && !block) { rcv = (SV*)cv; + /* Might have had built-in attributes applied -- propagate them. */ + CvFLAGS(cv) |= (CvFLAGS(PL_compcv) & CVf_BUILTIN_ATTRS); if (CvGV(cv) && GvSTASH(CvGV(cv))) stash = GvSTASH(CvGV(cv)); else if (CvSTASH(cv)) -- cgit v1.2.1