From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 4 Aug 2001 11:09:37 +0000 (-0700)
Subject: Re: [patch] rid "Scalars leaked" from perl_clone
X-Git-Tag: perl-5.7.3~2924
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/01485f8b60f6cb9da6ceaaafc3abd52c6f690081?hp=f33976b4825a1f900bb28e78ad0509286ad2ffe5

Re: [patch] rid "Scalars leaked" from perl_clone
Message-ID: <Pine.LNX.4.21.0108041102390.23972-100000@mako.covalent.net>

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

diff --git a/sv.c b/sv.c
index 5269aba..2eacc33 100644
--- a/sv.c
+++ b/sv.c
@@ -9090,6 +9090,11 @@ Perl_sv_dup(pTHX_ SV *sstr, clone_params* param)
 	CvROOT(dstr)	= OpREFCNT_inc(CvROOT(sstr));
 	CvXSUB(dstr)	= CvXSUB(sstr);
 	CvXSUBANY(dstr)	= CvXSUBANY(sstr);
+	if (CvCONST(sstr)) {
+	    CvXSUBANY(dstr).any_ptr = GvUNIQUE(CvGV(sstr)) ?
+                SvREFCNT_inc(CvXSUBANY(sstr).any_ptr) :
+                sv_dup_inc(CvXSUBANY(sstr).any_ptr, param);
+	}
 	CvGV(dstr)	= gv_dup(CvGV(sstr), param);
 	if (param->flags & CLONEf_COPY_STACKS) {
 	  CvDEPTH(dstr)	= CvDEPTH(sstr);