[perl #24914] freeing a CV reference that was currently being

 executed caused coredumps

p4raw-id: //depot/perl@22167

1 files changed, 3 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index 2c2ce3698e..1da8ebe29b 100644
--- a/scope.c
+++ b/scope.c
@@ -1045,8 +1045,10 @@ Perl_leave_scope(pTHX_ I32 base)
 	    break;
 	case SAVEt_COMPPAD:
 	    PL_comppad = (PAD*)SSPOPPTR;
-	    if (PL_comppad)
+	    if (PL_comppad) {
 		PL_curpad = AvARRAY(PL_comppad);
+		SvREFCNT_dec(PL_comppad);
+	    }		    
 	    else
 		PL_curpad = Null(SV**);
 	    break;