From cc5e57d2fd9821a8c93d8121736585ce8a41aa94 Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Sun, 18 Oct 1998 19:10:29 -0400 Subject: [PATCH] Speed up aassign Message-Id: <199810190310.XAA28102@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@2062 --- pp_hot.c | 1 + 1 file changed, 1 insertion(+) 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) { -- 2.7.4