diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 17:46:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 17:46:31 +0000 |
| commit | 60dadb69307520d7fe23dc28e2cb662960184d36 (patch) | |
| tree | 6db9e39abef9b1206ab64193fc019e21e1c76dae /op.h | |
| parent | 248ff010a9f14ea43c69a11c0242d8e9e015163d (diff) | |
| download | perl-60dadb69307520d7fe23dc28e2cb662960184d36.tar.gz | |
Retract #11055, didn't help much (2736 bytes vs 2725 bytes leaked).
The real fix must be more involved. The line of code all the leaky
call stacks seem to go through is op.c:2949, the PmopSTASH_set()
line of Perl_newPMOP().
p4raw-id: //depot/perl@11099
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) (Safefree((o)->op_pmstashpv), (o)->op_pmstashpv = ((pv) ? savepv(pv) : Nullch)) +# define PmopSTASHPV_set(o,pv) ((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) |