diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-01-17 08:39:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-17 08:39:00 +1200 |
| commit | fa83b5b6263413f922909c255e021c32c808b32d (patch) | |
| tree | 4f21edebbdd75d0613487aca81c35c1190e483d9 /op.c | |
| parent | 743c51bca697772277895eb80832bcfbd65530df (diff) | |
| download | perl-fa83b5b6263413f922909c255e021c32c808b32d.tar.gz | |
[inseparable changes from patch from perl5.003_21 to perl5.003_22]perl-5.003_22
CORE LANGUAGE CHANGES
Subject: Fix parsing of C< ${ xyz } >
From: Chip Salzenberg <chip@atlantic.net>
Files: toke.c
Subject: Don't parse method calls in strings
From: Chip Salzenberg <chip@atlantic.net>
Files: toke.c
OTHER CORE CHANGES
Subject: Fix memory corruption from formats
From: Chip Salzenberg <chip@atlantic.net>
Files: op.c perl.c perly.c perly.c.diff perly.y proto.h sv.c toke.c
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); |