This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] add "$lexical not available" warning in C<for my $lex ()>
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Sun, 31 Aug 2003 15:21:17 +0000 (17:21 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 31 Aug 2003 13:24:10 +0000 (13:24 +0000)
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <038401c36fc2$d01b1440$9b00a8c0@R2D2>

p4raw-id: //depot/perl@20968

sv.c

diff --git a/sv.c b/sv.c
index 34700c2..e1d7715 100644 (file)
--- 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");
        }