In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9cdcb38b4c31a45dcd09aebdede952de356c30f0?hp=9d169eb4da35d0142fb35b8fb32a7564b799bb6a>
- Log ----------------------------------------------------------------- commit 9cdcb38b4c31a45dcd09aebdede952de356c30f0 Author: chromatic <[email protected]> Date: Tue Sep 22 08:33:33 2009 -0700 push in Void Context The attached patch avoids pushing an IV onto the stack for a push op in void context. The "Is there attached magic" branch in the op checks for void context as does the non-magical branch in the unshift op. -- c [Edited version of patch after review by Yitzchak Scott-Thoennes] ----------------------------------------------------------------------- Summary of changes: pp.c | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/pp.c b/pp.c index e3b7798..fae2d6d 100644 --- a/pp.c +++ b/pp.c @@ -4738,7 +4738,9 @@ PP(pp_push) PL_delaymagic = 0; SP = ORIGMARK; - PUSHi( AvFILLp(ary) + 1 ); + if (OP_GIMME(PL_op, 0) != G_VOID) { + PUSHi( AvFILL(ary) + 1 ); + } } RETURN; } -- Perl5 Master Repository
