diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-11-29 15:52:23 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-29 14:03:28 +0000 |
| commit | 3db68c4cfa166f8c53ee29f52e73912f29561e6f (patch) | |
| tree | 0517fcaa61f6b4b1e939f53c3a3c2028c43b157b /toke.c | |
| parent | d2bc402e011e53ceb88e1e15628b986d2ca5665f (diff) | |
| download | perl-3db68c4cfa166f8c53ee29f52e73912f29561e6f.tar.gz | |
autosplit into @F fix
Message-ID: <20011129145223.A25817@rafael>
p4raw-id: //depot/perl@13360
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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...*/ |