diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-30 22:18:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-30 22:18:37 +0000 |
| commit | 478b3596871826f3cc137b564fd8e095ba914923 (patch) | |
| tree | 54dc9cbe5659a6bc6951717448cb6c8265b68e14 /op.h | |
| parent | 6b51d1972a2b79001412a5849fb4872ef1d9af2a (diff) | |
| download | perl-478b3596871826f3cc137b564fd8e095ba914923.tar.gz | |
Attempt at plugging the leak under ithreads detected by Doug.
p4raw-id: //depot/perl@11055
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |