Fix #30660: Repeated spaces on shebang line stops option parsing

From a patch and test sent by Renée Bäcker in
<48B271A3.80808@smart-websolutions.de>

p4raw-id: //depot/perl@34234

1 files changed, 4 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index e41ae96292..98437a3e9d 100644
--- a/perl.c
+++ b/perl.c
@@ -3431,8 +3431,10 @@ Internet, point your browser at http://www.perl.org/, the Perl Home Page.\n\n");
 	return s;
     case '*':
     case ' ':
-	if (s[1] == '-')	/* Additional switches on #! line. */
-	    return s+2;
+        while( *s == ' ' )
+          ++s;
+	if (s[0] == '-')	/* Additional switches on #! line. */
+	    return s+1;
 	break;
     case '-':
     case 0: