minor logic tweak for reserved word warning

p4raw-id: //depot/perl@3451

1 files changed, 11 insertions, 9 deletions

diff --git a/toke.c b/toke.c
index 441839b12b..0105fe1265 100644
--- a/toke.c
+++ b/toke.c
@@ -3255,17 +3255,19 @@ int yylex(PERL_YYLEX_PARAM_DECL)
 		    TOKEN(NOAMP);
 		}
 
-		if (PL_hints & HINT_STRICT_SUBS)
-		    yylval.opval->op_private |= OPpCONST_STRICT;
-
 		/* Call it a bare word */
 
-	    bareword:
-		if (ckWARN(WARN_RESERVED)) {
-		    if (lastchar != '-') {
-			for (d = PL_tokenbuf; *d && isLOWER(*d); d++) ;
-			if (!*d)
-			    warner(WARN_RESERVED, PL_warn_reserved, PL_tokenbuf);
+		if (PL_hints & HINT_STRICT_SUBS)
+		    yylval.opval->op_private |= OPpCONST_STRICT;
+		else {
+		bareword:
+		    if (ckWARN(WARN_RESERVED)) {
+			if (lastchar != '-') {
+			    for (d = PL_tokenbuf; *d && isLOWER(*d); d++) ;
+			    if (!*d)
+				warner(WARN_RESERVED, PL_warn_reserved,
+				       PL_tokenbuf);
+			}
 		    }
 		}