performance tweaking op.c

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index fba0b33..6280145 100644 (file)
--- 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);
-                       }
                    }
                }
            }