diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-10 18:13:29 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2003-02-10 18:13:29 +0000 |
| commit | 437fd2104756c25dedf68c6e31cd29ecbf0e2569 (patch) | |
| tree | cc9280913209de43a4aae33f74a32efe0c714122 /toke.c | |
| parent | 9be22fdc5e6401d34a392a30fcc1c5fb0eb6723f (diff) | |
| download | perl-437fd2104756c25dedf68c6e31cd29ecbf0e2569.tar.gz | |
Re: [perl #20716] [FIX] scope error with brackets
Message-id: <20030210174858.GA872@ratsnest.hole>
p4raw-id: //depot/perl@18687
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -6287,6 +6287,8 @@ 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 */ |