This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Save the popped cx->blk_eval.old_namesv before calling LEAVE
It's fine to still refer to cx members between POPEVAL and LEAVE, but there
are a few places where the namesv is read after LEAVE happens. This is bad
because LEAVE can call arbitrary code ; in particular, it can call a destructor
that does call_sv(cv, G_EVAL), in which case the old eval context cx gets
overwritten by the new one and cx->blk_eval.old_namesv points to garbage.