back out change #22167 "freeing a CV reference that was currently

being executed caused coredumps".
The new test case sometimes locks up linux's malloc, and with
Perl's malloc the test code still coredumps :-(
p4raw-link: @22167 on //depot/perl: b3a3b3a1da8f5142edf3e194532b08316f895282

p4raw-id: //depot/perl@22172

1 files changed, 1 insertions, 3 deletions

diff --git a/scope.c b/scope.c
index 1da8ebe29b..2c2ce3698e 100644
--- a/scope.c
+++ b/scope.c
@@ -1045,10 +1045,8 @@ 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;