second attempt to fix [perl #24914] freeing a CV reference that was

currently being executed caused coredumps. The dounwind called by
die unwinds all the contexts on the context stack before unwinding
the save stack.  To stop premature freeing of the CV, hold
references to it on both stacks.

p4raw-id: //depot/perl@22182

1 files changed, 0 insertions, 2 deletions

diff --git a/pp_sort.c b/pp_sort.c
index 8fe6bcdbe0..8e6422d190 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1524,8 +1524,6 @@ PP(pp_sort)
 		cx->cx_type = CXt_SUB;
 		cx->blk_gimme = G_SCALAR;
 		PUSHSUB(cx);
-		if (!CvDEPTH(cv))
-		    (void)SvREFCNT_inc(cv); /* in preparation for POPSUB */
 	    }
 	    PL_sortcxix = cxstack_ix;