Remove code duplicated a few lines above by change 19695.

p4raw-id: //depot/perl@26673

1 files changed, 0 insertions, 8 deletions

diff --git a/toke.c b/toke.c
index fba0b331e7..62801459f8 100644
--- a/toke.c
+++ b/toke.c
@@ -2993,14 +2993,6 @@ 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);
-			}
 		    }
 		}
 	    }