From: Adrian M. Enache <enache@rdslink.ro>
Date: Sat, 10 Jan 2004 20:16:03 +0000 (+0000)
Subject: still problems with backreferences + reverse cloning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a81978b50f8e9582c2e2785a348b8b7b0cb3aae;p=p5sagit%2Fp5-mst-13.2.git

still problems with backreferences + reverse cloning
after #21936 - the weak reference may live on the pad.

p4raw-id: //depot/perl@22106
---

diff --git a/sv.c b/sv.c
index 995be32..db9490a 100644
--- a/sv.c
+++ b/sv.c
@@ -9799,7 +9799,7 @@ Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS* param)
 	    SvREFCNT_inc(nmg->mg_obj = (SV*)newAV());
 	    svp = AvARRAY(av);
 	    for (i = AvFILLp(av); i >= 0; i--) {
-		if (!svp[i] || SvREFCNT(svp[i]) < 2) continue;
+		if (!svp[i]) continue;
 		av_push((AV*)nmg->mg_obj,sv_dup(svp[i],param));
 	    }
 	}