projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Opcode.XS, fix memory leak
[p5sagit/p5-mst-13.2.git]
/
ext
/
Opcode
/
Opcode.xs
diff --git
a/ext/Opcode/Opcode.xs
b/ext/Opcode/Opcode.xs
index
04f7c3f
..
d437cd7
100644
(file)
--- 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);