This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(perl #134310) don't confuse S_no_op()
authorTony Cook <tony@develop-help.com>
Wed, 31 Jul 2019 01:06:20 +0000 (11:06 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 31 Jul 2019 01:06:20 +0000 (11:06 +1000)
commit8348ac19a3c37caf807ef0f64320e0bec53b6747
tree5ec5bef633fc816a7a7e0358051eabdd0d4f79fd
parent82007f754ed1e129a53fc7c964d84cddba7ca0de
(perl #134310) don't confuse S_no_op()

This code could previously set PL_bufptr so it points after the
returned s pointer, which S_no_op() asserts on for the test case.

Since setting PL_bufptr here is useful when producing the error
message, just make sure we restore it.
t/lib/croak/toke
toke.c