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 /perly.y | |
| 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 'perly.y')
| -rw-r--r-- | perly.y | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -276,18 +276,16 @@ subrout : SUB startsub subname proto subbody { newSUB($2, $3, $4, $5); } ; -startsub: /* NULL */ /* start a subroutine scope */ - { $$ = start_subparse(); } +startsub: /* NULL */ /* start a regular subroutine scope */ + { $$ = start_subparse(0); } ; startanonsub: /* NULL */ /* start an anonymous subroutine scope */ - { $$ = start_subparse(); - CvANON_on(compcv); } + { $$ = start_subparse(CVf_ANON); } ; startformsub: /* NULL */ /* start a format subroutine scope */ - { $$ = start_subparse(); - CvFORMAT_on(compcv); } + { $$ = start_subparse(CVf_FORMAT); } ; subname : WORD { char *name = SvPVx(((SVOP*)$1)->op_sv, na); |