diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-13 12:13:29 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-13 12:22:54 -0700 |
commit | 8b4c5ad11955dc809ba3b7d6672b3a13ea54e770 (patch) | |
tree | 2e7271967bdd3218e2be62330defd447d36f12b3 /toke.c | |
parent | cdfcfc0b6c787e44466e6a226452244d720a1f4f (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |