Change 11055 by jhi@alpha on 2001/06/30 22:18:37
Attempt at plugging the leak under ithreads detected by Doug.
Affected files ...
... //depot/perl/op.h#77 edit
Differences ...
==== //depot/perl/op.h#77 (text) ====
Index: perl/op.h
--- perl/op.h.~1~ Sat Jun 30 16:30:05 2001
+++ perl/op.h Sat Jun 30 16:30:05 2001
@@ -277,7 +277,7 @@
#ifdef USE_ITHREADS
# define PmopSTASHPV(o) ((o)->op_pmstashpv)
-# define PmopSTASHPV_set(o,pv) ((o)->op_pmstashpv = ((pv) ? savepv(pv) :
Nullch))
+# define PmopSTASHPV_set(o,pv) (Safefree((o)->op_pmstashpv),
+(o)->op_pmstashpv = ((pv) ? savepv(pv) : Nullch))
# define PmopSTASH(o) (PmopSTASHPV(o) \
? gv_stashpv(PmopSTASHPV(o),GV_ADD) : Nullhv)
# define PmopSTASH_set(o,hv) PmopSTASHPV_set(o, (hv) ? HvNAME(hv) : Nullch)
End of Patch.
