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 /sv.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 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -3593,7 +3593,7 @@ I32 lref; ENTER; tmpsv = NEWSV(704,0); gv_efullname3(tmpsv, gv, Nullch); - newSUB(start_subparse(), + newSUB(start_subparse(0), newSVOP(OP_CONST, 0, tmpsv), Nullop, Nullop); @@ -4179,10 +4179,11 @@ SV* sv; if (HvNAME(sv)) PerlIO_printf(Perl_debug_log, " NAME = \"%s\"\n", HvNAME(sv)); break; - case SVt_PVFM: case SVt_PVCV: if (SvPOK(sv)) PerlIO_printf(Perl_debug_log, " PROTOTYPE = \"%s\"\n", SvPV(sv,na)); + /* FALL THROUGH */ + case SVt_PVFM: PerlIO_printf(Perl_debug_log, " STASH = 0x%lx\n", (long)CvSTASH(sv)); PerlIO_printf(Perl_debug_log, " START = 0x%lx\n", (long)CvSTART(sv)); PerlIO_printf(Perl_debug_log, " ROOT = 0x%lx\n", (long)CvROOT(sv)); |