13 lines
374 B
Diff
13 lines
374 B
Diff
--- perl-5.8.8/perl.c.U27426 2006-06-01 17:04:25.000000000 -0400
|
|
+++ perl-5.8.8/perl.c 2006-06-01 19:00:57.000000000 -0400
|
|
@@ -3076,8 +3076,7 @@
|
|
PL_minus_F = TRUE;
|
|
PL_splitstr = ++s;
|
|
while (*s && !isSPACE(*s)) ++s;
|
|
- *s = '\0';
|
|
- PL_splitstr = savepv(PL_splitstr);
|
|
+ PL_splitstr = savepvn(PL_splitstr, s - PL_splitstr);
|
|
return s;
|
|
case 'a':
|
|
PL_minus_a = TRUE;
|