Change 11110 by jhi@alpha on 2001/07/02 22:27:10
Subject: [PATCH toke.c] autosplit into @F
From: Robin Houston <[EMAIL PROTECTED]>
Date: Mon, 2 Jul 2001 23:18:20 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/perl.c#341 edit
... //depot/perl/toke.c#368 edit
Differences ...
==== //depot/perl/perl.c#341 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Mon Jul 2 16:30:05 2001
+++ perl/perl.c Mon Jul 2 16:30:05 2001
@@ -2037,7 +2037,7 @@
S_usage(pTHX_ char *name) /* XXX move this out into a module ? */
{
/* This message really ought to be max 23 lines.
- * Removed -h because the user already knows that opton. Others? */
+ * Removed -h because the user already knows that option. Others? */
static char *usage_msg[] = {
"-0[octal] specify record separator (\\0, if no argument)",
==== //depot/perl/toke.c#368 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Mon Jul 2 16:30:05 2001
+++ perl/toke.c Mon Jul 2 16:30:05 2001
@@ -2545,9 +2545,6 @@
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 @@
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 @@
}
}
else
- sv_catpv(PL_linestr,"@F=split(' ');");
+ sv_catpv(PL_linestr,"our @F=split(' ');");
}
}
sv_catpv(PL_linestr, "\n");
End of Patch.
