From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 31 Aug 2003 15:21:17 +0000 (+0200)
Subject: Re: [PATCH] add "$lexical not available" warning in C<for my $lex ()>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bd2680e3b194d05a401f05b0328c95082b6b9d3;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] add "$lexical not available" warning in C<for my $lex ()>
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <038401c36fc2$d01b1440$9b00a8c0@R2D2>

p4raw-id: //depot/perl@20968
---

diff --git a/sv.c b/sv.c
index 34700c2..e1d7715 100644
--- a/sv.c
+++ b/sv.c
@@ -10720,6 +10720,14 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
 	    longval = (long)POPBOOL(ss,ix);
 	    TOPBOOL(nss,ix) = (bool)longval;
 	    break;
+	case SAVEt_SET_SVFLAGS:
+	    i = POPINT(ss,ix);
+	    TOPINT(nss,ix) = i;
+	    i = POPINT(ss,ix);
+	    TOPINT(nss,ix) = i;
+	    sv = (SV*)POPPTR(ss,ix);
+	    TOPPTR(nss,ix) = sv_dup(sv, param);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: ss_dup inconsistency");
 	}