Retract #20597, too many resulting core dumps.

p4raw-id: //depot/perl@20602

1 files changed, 2 insertions, 8 deletions

diff --git a/pad.c b/pad.c
index a121e5302e..90d99795a5 100644
--- a/pad.c
+++ b/pad.c
@@ -258,15 +258,9 @@ Perl_pad_undef(pTHX_ CV* cv)
 		{
 		    assert(CvWEAKOUTSIDE(innercv));
 		    CvWEAKOUTSIDE_off(innercv);
+		    CvOUTSIDE(innercv) = outercv;
 		    CvOUTSIDE_SEQ(innercv) = seq;
-		    /* don't relink to grandfather if he's being freed */
-		    if (SvREFCNT(outercv)) {
-			CvOUTSIDE(innercv) = outercv;
-			SvREFCNT_inc(outercv);
-		    }
-		    else {
-			CvOUTSIDE(innercv) = Nullcv;
-		    }
+		    SvREFCNT_inc(outercv);
 		}
 	    }
 	}