autosplit into @F fix
Rafael Garcia-Suarez [Thu, 29 Nov 2001 14:52:23 +0000 (15:52 +0100)]
Message-ID: <20011129145223.A25817@rafael>

p4raw-id: //depot/perl@13360

toke.c

diff --git a/toke.c b/toke.c
index d9e7248..764e305 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2442,7 +2442,7 @@ Perl_yylex(pTHX)
                    if (PL_minus_F) {
                        if (strchr("/'\"", *PL_splitstr)
                              && strchr(PL_splitstr + 1, *PL_splitstr))
-                           Perl_sv_catpvf(aTHX_ PL_linestr, "@F=split(%s);", PL_splitstr);
+                           Perl_sv_catpvf(aTHX_ PL_linestr, "our @F=split(%s);", PL_splitstr);
                        else {
                            char delim;
                            s = "'~#\200\1'"; /* surely one char is unused...*/