summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2015-02-07 19:10:06 -0800
committerFather Chrysostomos <sprout@cpan.org>2015-02-07 19:10:53 -0800
commit218721242848e642c0d1399644b6a90969e485e3 (patch)
tree4d2be40e59756d7bfc172cdfbf6334e2390646a0 /toke.c
parent29fa3ed31f733f1b58e89e560fb052897bccefde (diff)
downloadperl-218721242848e642c0d1399644b6a90969e485e3.tar.gz
toke.c: Remove redundant PL_expect assignment
As of v5.21.3-105-gc5e7362, force_ident no longer reads the value of PL_expect, so the assignment can come after it. And TERM('&') (just after this if-statement) already assigns XOPERATOR to PL_expect.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 0929b682e1..fa4de96866 100644
--- a/toke.c
+++ b/toke.c
@@ -5753,7 +5753,6 @@ Perl_yylex(pTHX)
s = scan_ident(s - 1, PL_tokenbuf + 1,
sizeof PL_tokenbuf - 1, TRUE);
if (PL_tokenbuf[1]) {
- PL_expect = XOPERATOR;
force_ident_maybe_lex('&');
}
else