From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Mar 2006 21:53:06 +0000 (+0000)
Subject: Oops. Didn't mean to commit 27426 to maint first. Integrate it:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e49e380eaec0ac30de05f118388e614b3b7bbed9;p=p5sagit%2Fp5-mst-13.2.git

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..)
---

diff --git a/perl.c b/perl.c
index a931a78..0ad1e00 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;