#!perl -F...

Message-Id: <20011109143228.A18996@rafael>

p4raw-id: //depot/perl@12912

diff --git a/perl.c b/perl.c
index 292b56b..2c16f91 100644 (file)
--- 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;