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 /pp_sys.c | |
| parent | ea7c11a37de2088ba174a077e567a01d0e73d0ca (diff) | |
| download | perl-d3acc0f7e51973106c8c51ff053cffc8bd402843.tar.gz | |
PUSHSTACK renovation
Message-Id: <H00000e500081d23@MHS>
p4raw-id: //depot/perl@1254
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -554,7 +554,7 @@ PP(pp_tie) items = SP - MARK++; if (sv_isobject(*MARK)) { ENTER; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); EXTEND(SP,items); while (items--) @@ -572,7 +572,7 @@ PP(pp_tie) methname, SvPV(*MARK,na)); } ENTER; - PUSHSTACK(SI_MAGIC); + PUSHSTACKi(SI_MAGIC); PUSHMARK(SP); EXTEND(SP,items); while (items--) @@ -583,7 +583,7 @@ PP(pp_tie) SPAGAIN; sv = TOPs; - POPSTACK(); + POPSTACK; if (sv_isobject(sv)) { sv_unmagic(varsv, how); sv_magic(varsv, sv, how, Nullch, 0); |