summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-12-05 17:55:17 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-12-05 20:11:14 -0800
commit79b5479cf7fecd516713f60c0e3f566a46cc79c0 (patch)
treef4482cce0728e96c93c15f69a194aa5ccbc0188e /toke.c
parenta9d49ba7e0fca8cf5ad94d780b8b0603ab350904 (diff)
downloadperl-79b5479cf7fecd516713f60c0e3f566a46cc79c0.tar.gz
Revert "toke.c: Remove redundant PL_expect check"
This reverts commit 8b4c5ad11955dc809ba3b7d6672b3a13ea54e770. It caused bug #123372.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 9c33d09622..065d964bd0 100644
--- a/toke.c
+++ b/toke.c
@@ -6255,7 +6255,7 @@ Perl_yylex(pTHX)
}
/* avoid v123abc() or $h{v1}, allow C<print v10;> */
if (!isALPHA(*start) && (PL_expect == XTERM
- || PL_expect == XSTATE
+ || PL_expect == XREF || PL_expect == XSTATE
|| PL_expect == XTERMORDORDOR)) {
GV *const gv = gv_fetchpvn_flags(s, start - s,
UTF ? SVf_UTF8 : 0, SVt_PVCV);