Change 11576 by jhi@alpha on 2001/08/04 17:31:06
Subject: Re: [patch] rid "Scalars leaked" from perl_clone
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Sat, 4 Aug 2001 11:09:37 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/sv.c#453 edit
Differences ...
==== //depot/perl/sv.c#453 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Sat Aug 4 11:45:06 2001
+++ perl/sv.c Sat Aug 4 11:45:06 2001
@@ -9090,6 +9090,11 @@
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);
End of Patch.
