From a11ec5a9742ba7c7b0571f3f33d5d0663ab1f98e Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 7 Nov 2001 23:23:39 +0100
Subject: -s on #! line Message-ID: <20011107222339.E729@rafael>

p4raw-id: //depot/perl@12900
---
 toke.c | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index ae44e89cdd..b5e6b9caa2 100644
--- a/toke.c
+++ b/toke.c
@@ -2688,6 +2688,7 @@ Perl_yylex(pTHX)
 		    while (SPACE_OR_TAB(*d)) d++;
 
 		    if (*d++ == '-') {
+			bool switches_done = PL_doswitches;
 			do {
 			    if (*d == 'M' || *d == 'm') {
 				char *m = d;
@@ -2711,6 +2712,14 @@ Perl_yylex(pTHX)
 				(void)gv_fetchfile(PL_origfilename);
 			    goto retry;
 			}
+			if (PL_doswitches && !switches_done) {
+			    int argc = PL_origargc;
+			    char **argv = PL_origargv;
+			    do {
+				argc--,argv++;
+			    } while (argc && argv[0][0] == '-' && argv[0][1]);
+			    init_argv_symbols(argc,argv);
+			}
 		    }
 		}
 	    }
-- 
cgit v1.2.1