diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-27 01:41:33 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-27 01:41:33 +0000 |
| commit | 62ec34bdab38578dfeaafdadbf57d3722a2f6e0c (patch) | |
| tree | 6ae25ef27284fbeca532b191cc8e5a41fd10d0ff /toke.c | |
| parent | 3958b146226a1f41d96ef1aa1e0dde87d11c5498 (diff) | |
| download | perl-62ec34bdab38578dfeaafdadbf57d3722a2f6e0c.tar.gz | |
Allow 'eval "v200"' to work (part of 20000323.059); fix as
envisioned by Sarathy.
p4raw-id: //depot/perl@10227
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3773,7 +3773,7 @@ Perl_yylex(pTHX) TERM(THING); } /* avoid v123abc() or $h{v1}, allow C<print v10;> */ - else if (!isALPHA(*start) && (PL_expect == XTERM || PL_expect == XREF)) { + else if (!isALPHA(*start) && (PL_expect == XTERM || PL_expect == XREF || PL_expect == XSTATE)) { char c = *start; GV *gv; *start = '\0'; |