From: Gisle Aas <gisle@activestate.com>
Date: Fri, 6 Jan 2006 14:00:14 +0000 (+0000)
Subject: Remove code duplicated a few lines above by change 19695.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e05f6b2748347b09803ee2a25d063e2d15378ffb;p=p5sagit%2Fp5-mst-13.2.git

Remove code duplicated a few lines above by change 19695.

p4raw-id: //depot/perl@26673
---

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