diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2001-08-23 13:06:36 +0100 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-23 10:36:02 +0000 |
| commit | c7aa9c719fed44ee53740efe52fa7803093315e2 (patch) | |
| tree | 808ff31696c52433a49df76649ae82c4d718b2dd /op.c | |
| parent | d80aa5594cb0736b9d4bd083ce9a6fa2f0fea457 (diff) | |
| download | perl-c7aa9c719fed44ee53740efe52fa7803093315e2.tar.gz | |
Re: [ID 20010822.001] Freeing pads after parse error
Message-ID: <20010823120636.A9961@netthink.co.uk>
p4raw-id: //depot/perl@11732
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2147,7 +2147,8 @@ Perl_block_end(pTHX_ I32 floor, OP *seq) { int needblockscope = PL_hints & HINT_BLOCK_SCOPE; OP* retval = scalarseq(seq); - LEAVE_SCOPE(floor); + if (!PL_error_count) + LEAVE_SCOPE(floor); PL_pad_reset_pending = FALSE; PL_compiling.op_private = PL_hints; if (needblockscope) |