PERFORCE change 11280 for review

[Jarkko Hietaniemi]

Change 11280 by jhi@alpha on 2001/07/12 00:31:34

        Subject: [patch] perl_clone leaks
        From: Doug MacEachern <[EMAIL PROTECTED]>
        Date: Wed, 11 Jul 2001 08:43:32 -0700 (PDT)
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/sv.c#436 edit

Differences ...

==== //depot/perl/sv.c#436 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~       Wed Jul 11 18:45:06 2001
+++ perl/sv.c   Wed Jul 11 18:45:06 2001
@@ -10189,7 +10189,7 @@
            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 @@
        }
     }
 
+    SvREFCNT_dec(param->stashes);
+    Safefree(param);
+
 #ifdef PERL_OBJECT
     return (PerlInterpreter*)pPerl;
 #else
End of Patch.