And as we've now got to the point where all calls to Perl_moreswitches

have -1 as the second argument, we can remove the second argument,
which gets us back to where we started, only with the elimination of
a per-thread variable.

p4raw-id: //depot/perl@27075

1 files changed, 1 insertions, 6 deletions

diff --git a/toke.c b/toke.c
index df89130abe..8f01720491 100644
--- a/toke.c
+++ b/toke.c
@@ -3008,12 +3008,7 @@ Perl_yylex(pTHX)
 				Perl_croak(aTHX_ "Too late for \"-%.*s\" option",
 				      (int)(d - m), m);
 			    }
-			    /* Given that these switches are within the script,
-			       then it is not unsafe to allow them even within
-			       a suidperl fd script. Hence pass in the
-			       suidscript flag as -1, irrespective of what we
-			       really are.  */
-			    d = moreswitches(d, -1);
+			    d = moreswitches(d);
 			} while (d);
 			if (PL_doswitches && !switches_done) {
 			    int argc = PL_origargc;