X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=764e30554f8baac021b104b51afca640207a7d99;hb=726d7ae441a72088bad1d8a88f5e5a5f713513be;hp=d9e7248d27358d2b2ef4ba8679246ad9f63fc0bc;hpb=f4758303c4694488fe79aa89312edc922a056bf5;p=p5sagit%2Fp5-mst-13.2.git

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...*/