Change 20968: [PATCH sv.c] Re: [PATCH] add "$lexical not available" warning in C

[Jarkko Hietaniemi]

Change 20968 by [EMAIL PROTECTED] on 2003/08/31 13:24:10

        Subject: [PATCH sv.c] Re: [PATCH] add "$lexical not available" warning in 
C<for my $lex ()>
        From: "Marcus Holland-Moritz" <[EMAIL PROTECTED]>
        Date: Sun, 31 Aug 2003 15:21:17 +0200
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/sv.c#686 edit

Differences ...

==== //depot/perl/sv.c#686 (text) ====
Index: perl/sv.c
--- perl/sv.c#685~20912~        Tue Aug 26 13:15:40 2003
+++ perl/sv.c   Sun Aug 31 06:24:10 2003
@@ -10720,6 +10720,14 @@
            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");
        }
End of Patch.