From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 29 Nov 2001 14:52:23 +0000 (+0100)
Subject: autosplit into @F fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3db68c4cfa166f8c53ee29f52e73912f29561e6f;p=p5sagit%2Fp5-mst-13.2.git

autosplit into @F fix
Message-ID: <20011129145223.A25817@rafael>

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

diff --git a/toke.c b/toke.c
index d9e7248..764e305 100644
--- 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...*/