From: Jarkko Hietaniemi Date: Sat, 30 Jun 2001 22:18:37 +0000 (+0000) Subject: Attempt at plugging the leak under ithreads detected by Doug. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=478b3596871826f3cc137b564fd8e095ba914923;p=p5sagit%2Fp5-mst-13.2.git Attempt at plugging the leak under ithreads detected by Doug. p4raw-id: //depot/perl@11055 --- diff --git a/op.h b/op.h index 490b0fa..eaf8499 100644 --- a/op.h +++ b/op.h @@ -277,7 +277,7 @@ struct pmop { #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)