From: Gisle Aas <gisle@activestate.com>
Date: Tue, 10 Jan 2006 11:41:24 +0000 (+0000)
Subject: Move initialization of old values prior to moreswitches()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb993905318403493f26b8d521b1114502de3b51;p=p5sagit%2Fp5-mst-13.2.git

Move initialization of old values prior to moreswitches()
closer to their use and together with 'switches_done'.

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

diff --git a/toke.c b/toke.c
index d539b07..d26c7ac 100644
--- a/toke.c
+++ b/toke.c
@@ -2985,15 +2985,15 @@ Perl_yylex(pTHX)
 		}
 #endif
 		if (d) {
-		    const U32 oldpdb = PL_perldb;
-		    const bool oldn = PL_minus_n;
-		    const bool oldp = PL_minus_p;
-
 		    while (*d && !isSPACE(*d)) d++;
 		    while (SPACE_OR_TAB(*d)) d++;
 
 		    if (*d++ == '-') {
 			const bool switches_done = PL_doswitches;
+			const U32 oldpdb = PL_perldb;
+			const bool oldn = PL_minus_n;
+			const bool oldp = PL_minus_p;
+
 			do {
 			    if (*d == 'M' || *d == 'm' || *d == 'C') {
 				const char * const m = d;