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 (file)
--- 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) {