diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-01-10 08:23:02 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-10 18:42:08 +0000 |
| commit | 7ec3aa30ee856e876cd070342125b6b789feff5a (patch) | |
| tree | f1f4351bc633e667cfde52449ee45b63b78853c7 /ext/Opcode/Opcode.xs | |
| parent | f5c03d3388eb533e151dbae4729ed22fd40d14a0 (diff) | |
| download | perl-7ec3aa30ee856e876cd070342125b6b789feff5a.tar.gz | |
Opcode.XS, fix memory leak
Message-Id: <010110132245.8129a@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@8390
Diffstat (limited to 'ext/Opcode/Opcode.xs')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 04f7c3fa33..d437cd7a6a 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); |