This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_sort: add missing CX_LEAVE_SCOPE()
authorDavid Mitchell <davem@iabyn.com>
Thu, 15 Oct 2015 07:52:18 +0000 (08:52 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 08:59:42 +0000 (08:59 +0000)
commit72c5b62dfd0d91a02743d4b2fe0d8b8d04488753
treeab70f9c19e0a6573fa52c93bc9d0874882ae2849
parentdd748f4511ead9174b04b875630d7947834c9ed1
pp_sort: add missing CX_LEAVE_SCOPE()

The branch that does POPSUB has an implicit CX_LEAVE_SCOPE; the
other branch didn't; do add one for consistency. It's fairly harmless,
as pp_sort shortly afterwards does a LEAVE() anyway.

Also add an assertion to POPBLOCK that the save stack has been popped;
this is how I discovered the sort issue in the first place.
cop.h
pp_sort.c