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