Change 27427 by [EMAIL PROTECTED] on 2006/03/08 21:53:06
Oops. Didn't mean to commit 27426 to maint first. Integrate it:
Avoid writing over the input string in the case 'F' in moreswitches.
Affected files ...
... //depot/perl/perl.c#740 integrate
Differences ...
==== //depot/perl/perl.c#740 (text) ====
Index: perl/perl.c
--- perl/perl.c#739~27407~ 2006-03-07 14:16:55.000000000 -0800
+++ perl/perl.c 2006-03-08 13:53:06.000000000 -0800
@@ -3010,8 +3010,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;
End of Patch.
