Change 11188 by jhi@alpha on 2001/07/07 15:12:36
Subject: Re: bleedperl perl_alloc..free leakage
From: Radu Greab <[EMAIL PROTECTED]>
Date: Fri, 6 Jul 2001 19:48:54 +0300
Message-ID: <[EMAIL PROTECTED]>
Leak-be-gone.
Affected files ...
... //depot/perl/op.c#406 edit
Differences ...
==== //depot/perl/op.c#406 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Sat Jul 7 09:15:05 2001
+++ perl/op.c Sat Jul 7 09:15:05 2001
@@ -842,12 +842,12 @@
lastpmop = pmop;
pmop = pmop->op_pmnext;
}
+ }
#ifdef USE_ITHREADS
- Safefree(PmopSTASHPV(cPMOPo));
+ Safefree(PmopSTASHPV(cPMOPo));
#else
- /* NOTE: PMOP.op_pmstash is not refcounted */
+ /* NOTE: PMOP.op_pmstash is not refcounted */
#endif
- }
}
cPMOPo->op_pmreplroot = Nullop;
ReREFCNT_dec(PM_GETRE(cPMOPo));
End of Patch.
