summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-13 12:13:29 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-09-13 12:22:54 -0700
commit8b4c5ad11955dc809ba3b7d6672b3a13ea54e770 (patch)
tree2e7271967bdd3218e2be62330defd447d36f12b3 /toke.c
parentcdfcfc0b6c787e44466e6a226452244d720a1f4f (diff)
downloadperl-8b4c5ad11955dc809ba3b7d6672b3a13ea54e770.tar.gz
toke.c: Remove redundant PL_expect check
PL_expect is only ever XREF when we already know there is an open brace. So we would never even get to this code path.
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 028c685281..edd458d478 100644
--- a/toke.c
+++ b/toke.c
@@ -6215,7 +6215,7 @@ Perl_yylex(pTHX)
}
/* avoid v123abc() or $h{v1}, allow C<print v10;> */
if (!isALPHA(*start) && (PL_expect == XTERM
- || PL_expect == XREF || PL_expect == XSTATE
+ || PL_expect == XSTATE
|| PL_expect == XTERMORDORDOR)) {
GV *const gv = gv_fetchpvn_flags(s, start - s,
UTF ? SVf_UTF8 : 0, SVt_PVCV);