This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d2bc402
)
autosplit into @F fix
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Thu, 29 Nov 2001 14:52:23 +0000
(15:52 +0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 29 Nov 2001 14:03:28 +0000
(14:03 +0000)
Message-ID: <
20011129145223
.A25817@rafael>
p4raw-id: //depot/perl@13360
toke.c
patch
|
blob
|
blame
|
history
diff --git
a/toke.c
b/toke.c
index
d9e7248
..
764e305
100644
(file)
--- 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...*/