Change 27426 by [EMAIL PROTECTED] on 2006/03/08 21:24:41
Avoid writing over the input string in the case 'F' in moreswitches.
Affected files ...
... //depot/maint-5.8/perl/perl.c#154 edit
Differences ...
==== //depot/maint-5.8/perl/perl.c#154 (text) ====
Index: perl/perl.c
--- perl/perl.c#153~27318~ 2006-02-24 09:07:53.000000000 -0800
+++ perl/perl.c 2006-03-08 13:24:41.000000000 -0800
@@ -3078,8 +3078,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.
