From 14f338dc60207c41838439f6f09615a0c4c9bf39 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 9 Aug 2003 15:51:44 +0100
Subject: add "$lexical not available" warning in C<for my $lex ()> Message-ID:
 <20030809135144.GC4997@fdgroup.com>

p4raw-id: //depot/perl@20591
---
 pp_ctl.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'pp_ctl.c')

diff --git a/pp_ctl.c b/pp_ctl.c
index 76f2e5891c..3c2223a3e0 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1731,6 +1731,11 @@ PP(pp_enteriter)
     SAVETMPS;
 
     if (PL_op->op_targ) {
+	if (PL_op->op_private & OPpLVAL_INTRO) { /* for my $x (...) */
+	    SvPADSTALE_off(PAD_SVl(PL_op->op_targ));
+	    SAVESETSVFLAGS(PAD_SVl(PL_op->op_targ),
+		    SVs_PADSTALE, SVs_PADSTALE);
+	}
 #ifndef USE_ITHREADS
 	svp = &PAD_SVl(PL_op->op_targ);		/* "my" variable */
 	SAVESPTR(*svp);
-- 
cgit v1.2.1