From c7aa9c719fed44ee53740efe52fa7803093315e2 Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@netthink.co.uk>
Date: Thu, 23 Aug 2001 13:06:36 +0100
Subject: Re: [ID 20010822.001] Freeing pads after parse error Message-ID:
 <20010823120636.A9961@netthink.co.uk>

p4raw-id: //depot/perl@11732
---
 op.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index 677fe7a231..6dcd7463f7 100644
--- a/op.c
+++ b/op.c
@@ -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)
-- 
cgit v1.2.1