diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 16:22:58 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-16 16:22:58 +0000 |
| commit | bb13cb927b2b56cd314cd059be1c58034bedcc3b (patch) | |
| tree | f3f389b2b11d7d56beb3557664f728d7f5d8dcac /pp.c | |
| parent | 5476c4332a5540db7fc38bfabed95022b6c04b1b (diff) | |
| parent | b7afe3d5943df4dc5b5a482d4e543e4c94d92333 (diff) | |
| download | perl-bb13cb927b2b56cd314cd059be1c58034bedcc3b.tar.gz | |
Bump patchlevel.h to 63.
p4raw-id: //depot/perl@822
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2216,7 +2216,7 @@ PP(pp_aslice) if (SvTYPE(av) == SVt_PVAV) { if (lval && op->op_private & OPpLVAL_INTRO) { I32 max = -1; - for (svp = mark + 1; svp <= sp; svp++) { + for (svp = MARK + 1; svp <= SP; svp++) { elem = SvIVx(*svp); if (elem > max) max = elem; @@ -2858,7 +2858,7 @@ PP(pp_unpack) { djSP; dPOPPOPssrl; - SV **oldsp = sp; + SV **oldsp = SP; I32 gimme = GIMME_V; SV *sv; STRLEN llen; @@ -3542,7 +3542,7 @@ PP(pp_unpack) checksum = 0; } } - if (sp == oldsp && gimme == G_SCALAR) + if (SP == oldsp && gimme == G_SCALAR) PUSHs(&sv_undef); RETURN; } @@ -4436,7 +4436,7 @@ PP(pp_threadsv) { djSP; #ifdef USE_THREADS - EXTEND(sp, 1); + EXTEND(SP, 1); if (op->op_private & OPpLVAL_INTRO) PUSHs(*save_threadsv(op->op_targ)); else |