From 2affe78f01f9cd3aae1b214beb9140e1fe830c7d Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 10 Aug 2003 19:45:45 +0000 Subject: Retract #20597, too many resulting core dumps. p4raw-id: //depot/perl@20602 --- pad.c | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'pad.c') 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); } } } -- cgit v1.2.1