From 8bd2680e3b194d05a401f05b0328c95082b6b9d3 Mon Sep 17 00:00:00 2001
From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 31 Aug 2003 17:21:17 +0200
Subject: [PATCH] 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
---
 sv.c | 8 ++++++++
 1 file changed, 8 insertions(+)

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");
 	}
-- 
1.8.3.1