diff options
| author | Robin Houston <robin@cpan.org> | 2001-07-03 00:18:20 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 22:27:10 +0000 |
| commit | 75c72d732fc75126bb667afb0f3155ab15890fb3 (patch) | |
| tree | 46a15f3d8b0e693398d66ddaa2824444e8344821 /toke.c | |
| parent | 098251bcb15bdcfcdaad5380bc3510d276692cd1 (diff) | |
| download | perl-75c72d732fc75126bb667afb0f3155ab15890fb3.tar.gz | |
autosplit into @F
Message-Id: <E15HC3M-0007jL-00.2001-07-02-23-20-24@mail18.svr.pol.co.uk>
p4raw-id: //depot/perl@11110
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -2545,9 +2545,6 @@ Perl_yylex(pTHX) if (PL_minus_l) sv_catpv(PL_linestr,"chomp;"); if (PL_minus_a) { - GV* gv = gv_fetchpv("::F", TRUE, SVt_PVAV); - if (gv) - GvIMPORTED_AV_on(gv); if (PL_minus_F) { if (strchr("/'\"", *PL_splitstr) && strchr(PL_splitstr + 1, *PL_splitstr)) @@ -2557,7 +2554,7 @@ Perl_yylex(pTHX) s = "'~#\200\1'"; /* surely one char is unused...*/ while (s[1] && strchr(PL_splitstr, *s)) s++; delim = *s; - Perl_sv_catpvf(aTHX_ PL_linestr, "@F=split(%s%c", + Perl_sv_catpvf(aTHX_ PL_linestr, "our @F=split(%s%c", "q" + (delim == '\''), delim); for (s = PL_splitstr; *s; s++) { if (*s == '\\') @@ -2568,7 +2565,7 @@ Perl_yylex(pTHX) } } else - sv_catpv(PL_linestr,"@F=split(' ');"); + sv_catpv(PL_linestr,"our @F=split(' ');"); } } sv_catpv(PL_linestr, "\n"); |