Change 33874 by [EMAIL PROTECTED] on 2008/05/20 08:04:05
Subject: Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about
bareword
From: "Rafael Garcia-Suarez" <[EMAIL PROTECTED]>
Date: Tue, 20 May 2008 09:45:19 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/toke.c#823 edit
Differences ...
==== //depot/perl/toke.c#823 (text) ====
Index: perl/toke.c
--- perl/toke.c#822~33858~ 2008-05-18 14:08:01.000000000 -0700
+++ perl/toke.c 2008-05-20 01:04:05.000000000 -0700
@@ -5667,10 +5667,10 @@
/* 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;
End of Patch.
