This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
toke.c: Skip PL_expect assignment under KEY_require
[perl5.git]
/
toke.c
diff --git
a/toke.c
b/toke.c
index
8ac5b0b
..
36d41f4
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-7632,7
+7632,7
@@
Perl_yylex(pTHX)
}
else
pl_yylval.ival = 0;
- PL_expect = XTERM;
+
if (!PL_nexttoke)
PL_expect = XTERM;
PL_bufptr = s;
PL_last_uni = PL_oldbufptr;
PL_last_lop_op = OP_REQUIRE;