Oops. Didn't mean to commit 27426 to maint first. Integrate it:

Avoid writing over the input string in the case 'F' in moreswitches.

p4raw-id: //depot/perl@27427
p4raw-integrated: from //depot/maint-5.8/perl@27425 'merge in' perl.c
	(@27318..)

1 files changed, 1 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index a931a78a77..0ad1e00f57 100644
--- a/perl.c
+++ b/perl.c
@@ -3010,8 +3010,7 @@ Perl_moreswitches(pTHX_ char *s)
 	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;