From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 18 Oct 1998 23:10:29 +0000 (-0400)
Subject: Speed up aassign
X-Git-Tag: accepted/trunk/20130322.191538~36963
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cc5e57d2fd9821a8c93d8121736585ce8a41aa94;p=platform%2Fupstream%2Fperl.git

Speed up aassign

	Message-Id: <199810190310.XAA28102@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@2062
---

diff --git a/pp_hot.c b/pp_hot.c
index ecd8029..24bb4da 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -593,6 +593,7 @@ PP(pp_aassign)
      * clobber a value on the right that's used later in the list.
      */
     if (PL_op->op_private & OPpASSIGN_COMMON) {
+	EXTEND_MORTAL(lastrelem - firstrelem + 1);
         for (relem = firstrelem; relem <= lastrelem; relem++) {
             /*SUPPRESS 560*/
             if (sv = *relem) {