From fa83b5b6263413f922909c255e021c32c808b32d Mon Sep 17 00:00:00 2001 From: Perl 5 Porters Date: Fri, 17 Jan 1997 08:39:00 +1200 Subject: [inseparable changes from patch from perl5.003_21 to perl5.003_22] CORE LANGUAGE CHANGES Subject: Fix parsing of C< ${ xyz } > From: Chip Salzenberg Files: toke.c Subject: Don't parse method calls in strings From: Chip Salzenberg Files: toke.c OTHER CORE CHANGES Subject: Fix memory corruption from formats From: Chip Salzenberg Files: op.c perl.c perly.c perly.c.diff perly.y proto.h sv.c toke.c --- op.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'op.c') diff --git a/op.c b/op.c index 34683106dd..e0393bfd5d 100644 --- a/op.c +++ b/op.c @@ -2894,7 +2894,7 @@ CV* outside; SAVESPTR(compcv); cv = compcv = (CV*)NEWSV(1104,0); - sv_upgrade((SV *)cv, SVt_PVCV); + sv_upgrade((SV *)cv, SvTYPE(proto)); CvCLONED_on(cv); if (CvANON(proto)) CvANON_on(cv); @@ -3310,7 +3310,6 @@ OP *block; CvSTART(cv) = LINKLIST(CvROOT(cv)); CvROOT(cv)->op_next = 0; peep(CvSTART(cv)); - FmLINES(cv) = 0; op_free(op); copline = NOLINE; LEAVE_SCOPE(floor); -- cgit v1.2.1