Revert "Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about bareword"
authorDavid Mitchell <davem@iabyn.com>
Tue, 11 Aug 2009 21:19:52 +0000 (22:19 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 11 Aug 2009 21:19:52 +0000 (22:19 +0100)
This reverts commit 984f9f66477bc722578262ae8520584e44e881af.

This fix broke readline(BAREHANDLE)
(Message-ID: <871vniered.fsf@biokovo-amd64.herceg.de>)

toke.c

index 933fcb3..662ea6e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5697,10 +5697,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;