diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-20 11:45:19 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-05-20 08:04:05 +0000 |
| commit | 984f9f66477bc722578262ae8520584e44e881af (patch) | |
| tree | 2b7070b8896c796283763f20f264fe631982b154 /toke.c | |
| parent | 3182b11b46e28871b3a0e0b479b6cc939a4a90b1 (diff) | |
| download | perl-984f9f66477bc722578262ae8520584e44e881af.tar.gz | |
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
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; |