diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-07-16 13:15:37 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-07-16 13:15:37 +0000 |
| commit | 503de4705ff6537018ae94e9179e16636748b2a6 (patch) | |
| tree | d022d6d730a079eac8721ce355c9ae08c781a689 /pad.c | |
| parent | 4629c4f60ec83d0f102cd8ac641c8eefa2bb4a6f (diff) | |
| download | perl-503de4705ff6537018ae94e9179e16636748b2a6.tar.gz | |
[perl #43425] local $[: fix scoping during parser error handling.
Change 22306# inadvertently made 'local $[' statement-scoped
rather than block-scoped; so revert that change and add a
different fix. The problem was to ensure that the savestack got
popped correctly while popping errored tokens. We how record the
current value of PL_savestack_ix with each pushed parser state.
p4raw-id: //depot/perl@31615
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -255,8 +255,8 @@ Perl_pad_undef(pTHX_ CV* cv) return; DEBUG_X(PerlIO_printf(Perl_debug_log, - "Pad undef: cv=0x%"UVxf" padlist=0x%"UVxf"\n", - PTR2UV(cv), PTR2UV(padlist)) + "Pad undef: cv=0x%"UVxf" padlist=0x%"UVxf" comppad=0x%"UVxf"\n", + PTR2UV(cv), PTR2UV(padlist), PTR2UV(PL_comppad)) ); /* detach any '&' anon children in the pad; if afterwards they |