diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-08-23 13:42:07 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-23 13:42:07 +0000 |
| commit | e9818f4e43c2a32001637ddc206c1fcc9148cd06 (patch) | |
| tree | c04e20bac563825cac751f5f2900b20f1d8fc71c /op.c | |
| parent | f8620f40b7cfcb15ec0e1f5b65ee5854b02c13fa (diff) | |
| download | perl-e9818f4e43c2a32001637ddc206c1fcc9148cd06.tar.gz | |
Backed out 11732, it breaks lib/strict.t
p4raw-id: //depot/perl@11735
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -2147,8 +2147,7 @@ Perl_block_end(pTHX_ I32 floor, OP *seq) { int needblockscope = PL_hints & HINT_BLOCK_SCOPE; OP* retval = scalarseq(seq); - if (!PL_error_count) - LEAVE_SCOPE(floor); + LEAVE_SCOPE(floor); PL_pad_reset_pending = FALSE; PL_compiling.op_private = PL_hints; if (needblockscope) |