diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-13 06:52:21 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-02-19 20:55:09 +0000 |
| commit | 7df0d0422c26edcc954b82bd79e461b99b3c4092 (patch) | |
| tree | 5431632cfc3961abf098a51dd59a5c6ce342fe31 /toke.c | |
| parent | fe581ec7e70f830119f2a196166efcfaafaf0a43 (diff) | |
| download | perl-7df0d0422c26edcc954b82bd79e461b99b3c4092.tar.gz | |
Re: [perl #20716] scope error with brackets
Message-ID: <20030213025221.GA1215@ratsnest.hole>
(better version of change #18687)
p4raw-link: @18687 on //depot/perl: 437fd2104756c25dedf68c6e31cd29ecbf0e2569
p4raw-id: //depot/perl@18753
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -6276,8 +6276,10 @@ S_scan_ident(pTHX_ register char *s, register char *send, char *dest, STRLEN des } if (*s == '}') { s++; - if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) + if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) { PL_lex_state = LEX_INTERPEND; + PL_expect = XREF; + } if (funny == '#') funny = '@'; if (PL_lex_state == LEX_NORMAL) { @@ -6289,8 +6291,6 @@ S_scan_ident(pTHX_ register char *s, register char *send, char *dest, STRLEN des funny, dest, funny, dest); } } - if (PL_lex_inwhat == OP_STRINGIFY) - PL_expect = XREF; } else { s = bracket; /* let the parser handle it */ |