Forbid labels with keyword names

1 files changed, 3 insertions, 3 deletions

diff --git a/toke.c b/toke.c
index 658d163fcd..554975a661 100644
--- a/toke.c
+++ b/toke.c
@@ -5275,6 +5275,9 @@ Perl_yylex(pTHX)
 	while (d < PL_bufend && isSPACE(*d))
 		d++;	/* no comments skipped here, or s### is misparsed */
 
+	/* Check for keywords */
+	tmp = keyword(PL_tokenbuf, len, 0);
+
 	/* Is this a label? */
 	if (!tmp && PL_expect == XSTATE
 	      && d < PL_bufend && *d == ':' && *(d + 1) != ':') {
@@ -5284,9 +5287,6 @@ Perl_yylex(pTHX)
 	    TOKEN(LABEL);
 	}
 
-	/* Check for keywords */
-	tmp = keyword(PL_tokenbuf, len, 0);
-
 	/* Is this a word before a => operator? */
 	if (*d == '=' && d[1] == '>') {
 	    CLINE;