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 / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: dd748f4) | patch
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
treeab70f9c19e0a6573fa52c93bc9d0874882ae2849tree | snapshot
parentdd748f4511ead9174b04b875630d7947834c9ed1commit | diff
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 diff | blob | blame | history
pp_sort.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.