From e9818f4e43c2a32001637ddc206c1fcc9148cd06 Mon Sep 17 00:00:00 2001
From: Artur Bergman <sky@nanisky.com>
Date: Thu, 23 Aug 2001 13:42:07 +0000
Subject: [PATCH] Backed out 11732, it breaks lib/strict.t

p4raw-id: //depot/perl@11735
---
 op.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/op.c b/op.c
index 6dcd746..677fe7a 100644
--- a/op.c
+++ b/op.c
@@ -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)
-- 
2.7.4