This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Further simplify ck_sort
This code currently chases op_next pointers in the sort block to make
sure there is none that can point outside. To avoid getting stuck in
loops, it has to check for those explicitly.
Instead of nulling out any op_next pointer that points to the leave
op, we can simply turn the leave into a null op (which we already do)
and have the leave op’s op_next pointer point to nothing.
That produces the same result in the end: Execution of the sort block
is prevented from running rampant and escaping out of it, but exits
the runloop instead, returning control to pp_sort.