[perl #30660][PATCH] Repeated spaces on shebang line stops optionparsing

[Renée Bäcker <renee.baecker@smart-websolutions.de>]

Make perl recognize additional switches when more than one space is used...

-- 
---

renee.baecker@smart-websolutions.de

Perl-Magazin: http://foo-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de

--- perl.c.old	2008-08-25 10:35:38.000000000 +0200
+++ perl.c	2008-08-25 10:26:22.000000000 +0200
@@ -3370,8 +3370,10 @@
 	return s;
     case '*':
     case ' ':
-	if (s[1] == '-')	/* Additional switches on #! line. */
-	    return s+2;
+        while( *s && isSPACE(*s) )
+          ++s;
+	if (s[0] == '-')	/* Additional switches on #! line. */
+	    return s+1;
 	break;
     case '-':
     case 0:

---

Follow-Ups from:

Nicholas Clark <nick@ccl4.org>

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---