Change 13360: [PATCH toke.c] autosplit into @F fix

[Jarkko Hietaniemi]

Change 13360 by jhi@alpha on 2001/11/29 14:03:28

        Subject: [PATCH toke.c] autosplit into @F fix
        From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
        Date: Thu, 29 Nov 2001 14:52:23 +0100
        Message-ID: <20011129145223.A25817@rafael>         

Affected files ...

.... //depot/perl/toke.c#399 edit

Differences ...

==== //depot/perl/toke.c#399 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~     Thu Nov 29 07:15:05 2001
+++ perl/toke.c Thu Nov 29 07:15:05 2001
@@ -2442,7 +2442,7 @@
                    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...*/
End of Patch.