From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 20 May 2008 09:45:19 +0000 (+0200)
Subject: Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about bareword
X-Git-Tag: accepted/trunk/20130322.191538~13098
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=984f9f66477bc722578262ae8520584e44e881af;p=platform%2Fupstream%2Fperl.git

Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about bareword
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0805200045i1000598ci13c9cb3a29f64b6d@mail.gmail.com>

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

diff --git a/toke.c b/toke.c
index bc559ae..b76e434 100644
--- a/toke.c
+++ b/toke.c
@@ -5667,10 +5667,10 @@ Perl_yylex(pTHX)
 
 		/* Call it a bare word */
 
+		bareword:
 		if (PL_hints & HINT_STRICT_SUBS)
 		    pl_yylval.opval->op_private |= OPpCONST_STRICT;
 		else {
-		bareword:
 		    if (lastchar != '-') {
 			if (ckWARN(WARN_RESERVED)) {
 			    d = PL_tokenbuf;