This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For #16249 - Overwrite PL_last_lop_op when eval() is called.
authorMatthew Horsfall (alh) <wolfsage@gmail.com>
Tue, 3 Jul 2012 05:20:39 +0000 (22:20 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 3 Jul 2012 05:40:28 +0000 (22:40 -0700)
commit5dc13276b282d472cc1e6c349c18352bd0db89e2
tree12621c0944218b8d16a7fa80cda0de49e8809000
parent3bab73c8efeef4fd85d64d0bd345e833e599ebe7
For #16249 - Overwrite PL_last_lop_op when eval() is called.

Otherwise, parsing later on down the road may use the previous value, which, if it was OP_PRINT, causes the parser to fail
t/lib/warnings/toke
toke.c