From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Wed, 10 Jan 2001 13:23:02 +0000 (-0500)
Subject: Opcode.XS, fix memory leak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ec3aa30ee856e876cd070342125b6b789feff5a;p=p5sagit%2Fp5-mst-13.2.git

Opcode.XS, fix memory leak
Message-Id: <010110132245.8129a@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@8390
---

diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
index 04f7c3f..d437cd7 100644
--- a/ext/Opcode/Opcode.xs
+++ b/ext/Opcode/Opcode.xs
@@ -271,6 +271,7 @@ PPCODE:
 
     /* %INC must be clean for use/require in compartment */
     save_hash(PL_incgv);
+    sv_free((SV*)GvHV(PL_incgv));  /* get rid of what save_hash gave us*/
     GvHV(PL_incgv) = (HV*)SvREFCNT_inc(GvHV(gv_HVadd(gv_fetchpv("INC",TRUE,SVt_PVHV))));
 
     PUSHMARK(SP);