From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 9 Nov 2001 14:32:28 +0000 (+0100)
Subject: #!perl -F...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebce537753650facaea149579c73b75298d1fc2e;p=p5sagit%2Fp5-mst-13.2.git

#!perl -F...
Message-Id: <20011109143228.A18996@rafael>

p4raw-id: //depot/perl@12912
---

diff --git a/perl.c b/perl.c
index 292b56b..2c16f91 100644
--- a/perl.c
+++ b/perl.c
@@ -2189,8 +2189,10 @@ Perl_moreswitches(pTHX_ char *s)
 	return s;
     case 'F':
 	PL_minus_F = TRUE;
-	PL_splitstr = savepv(s + 1);
-	s += strlen(s);
+	PL_splitstr = ++s;
+	while (*s && !isSPACE(*s)) ++s;
+	*s = '\0';
+	PL_splitstr = savepv(PL_splitstr);
 	return s;
     case 'a':
 	PL_minus_a = TRUE;