[patch] perl_clone leaks

Message-ID: <Pine.LNX.4.21.0107110842390.11688-100000@mako.covalent.net>

p4raw-id: //depot/perl@11280

diff --git a/sv.c b/sv.c
index da6bc2b..0f84074 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10189,7 +10189,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
            ENTER;
            SAVETMPS;
            PUSHMARK(SP);
-           XPUSHs(newSVpv(HvNAME(stash), 0));
+           XPUSHs(sv_2mortal(newSVpv(HvNAME(stash), 0)));
            PUTBACK;
            call_sv((SV*)GvCV(cloner), G_DISCARD);
            FREETMPS;
@@ -10197,6 +10197,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
        }
     }
 
+    SvREFCNT_dec(param->stashes);
+    Safefree(param);
+
 #ifdef PERL_OBJECT
     return (PerlInterpreter*)pPerl;
 #else