From c71fccf11fde00682b01a755429d9c2484b4a8fa Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Jun 2001 14:59:41 +0000
Subject: Integrate change #10394 from maintperl; lexical file scope leakage.

p4raw-link: @10394 on //depot/maint-5.6/perl: f8a08f7b8bd67b287f13d07e110e93e62aebd509

p4raw-id: //depot/perl@10395
p4raw-integrated: from //depot/maint-5.6/perl@10393 'copy in'
	t/pragma/warn/universal (@5902..) 'merge in' perly.c (@8159..)
	vms/perly_c.vms (@8169..) t/op/misc.t (@8636..) perly.y
	(@9292..)
---
 perly.y | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perly.y')

diff --git a/perly.y b/perly.y
index a30f4cea7e..c682c9cc4e 100644
--- a/perly.y
+++ b/perly.y
@@ -129,10 +129,10 @@ prog	:	/* NULL */
 #if defined(YYDEBUG) && defined(DEBUGGING)
 		    yydebug = (DEBUG_p_TEST);
 #endif
-		    PL_expect = XSTATE;
+		    PL_expect = XSTATE; $$ = block_start(TRUE);
 		}
 	/*CONTINUED*/	lineseq
-			{ newPROG($2); }
+			{ newPROG(block_end($1,$2)); }
 	;
 
 block	:	'{' remember lineseq '}'
-- 
cgit v1.2.1