1 files changed, 4 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index da6bc2b925..0f84074e01 100644
--- 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