diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-06-26 05:34:34 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 21:35:02 +0000 |
| commit | d3acc0f7e51973106c8c51ff053cffc8bd402843 (patch) | |
| tree | 00f1e3a5300571443c61a4ea0113c741c33431ca /sv.c | |
| parent | ea7c11a37de2088ba174a077e567a01d0e73d0ca (diff) | |
| download | perl-d3acc0f7e51973106c8c51ff053cffc8bd402843.tar.gz | |
PUSHSTACK renovation
Message-Id: <H00000e500081d23@MHS>
p4raw-id: //depot/perl@1254
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2799,7 +2799,7 @@ sv_clear(register SV *sv) destructor = gv_fetchmethod(SvSTASH(sv), "DESTROY"); if (destructor) { ENTER; - PUSHSTACK(SI_DESTROY); + PUSHSTACKi(SI_DESTROY); SvRV(&tmpref) = SvREFCNT_inc(sv); EXTEND(SP, 2); PUSHMARK(SP); @@ -2808,7 +2808,7 @@ sv_clear(register SV *sv) perl_call_sv((SV*)GvCV(destructor), G_DISCARD|G_EVAL|G_KEEPERR); SvREFCNT(sv)--; - POPSTACK(); + POPSTACK; LEAVE; } } while (SvOBJECT(sv) && SvSTASH(sv) != stash); |