diff options
author | Doug MacEachern <dougm@covalent.net> | 2001-07-11 01:43:32 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 00:31:34 +0000 |
commit | dc507217b3331807446df6e7f16977ee2fdc418e (patch) | |
tree | 523669eb071fb1402f15ff3059b75bfe7847c784 /sv.c | |
parent | 14261ed0d2fb1be8386ce7d4181ff13dc2ed2d48 (diff) | |
download | perl-dc507217b3331807446df6e7f16977ee2fdc418e.tar.gz |
[patch] perl_clone leaks
Message-ID: <Pine.LNX.4.21.0107110842390.11688-100000@mako.covalent.net>
p4raw-id: //depot/perl@11280
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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 |