#!perl -F...

Message-Id: <20011109143228.A18996@rafael>

p4raw-id: //depot/perl@12912

1 files changed, 4 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index 292b56b3ec..2c16f9139b 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;