From 0c8c7a0553bc4fb5d18712a0ed968981d85f1767 Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@atlantic.net>
Date: Tue, 31 Dec 1996 09:34:20 +1200
Subject: [PATCH] Don't forget $c in C<(($a,$b,$c)=(1,2))=(3,4,5)>

---
 pp_hot.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pp_hot.c b/pp_hot.c
index 9633d54..f957deb 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -725,8 +725,9 @@ PP(pp_aassign)
 	    SP = lastrelem;
 	else
 	    SP = firstrelem + (lastlelem - firstlelem);
+	lelem = firstlelem + (relem - firstrelem);
 	while (relem <= SP)
-	    *relem++ = &sv_undef;
+	    *relem++ = (lelem <= lastlelem) ? *lelem++ : &sv_undef;
 	RETURN;
     }
     else {
@@ -1905,7 +1906,7 @@ PP(pp_entersub)
 	    }
 	    cx->blk_sub.savearray = GvAV(defgv);
 	    cx->blk_sub.argarray = av;
-	    GvAV(defgv) = cx->blk_sub.argarray;
+	    GvAV(defgv) = (AV*)SvREFCNT_inc(av);
 	    ++MARK;
 
 	    if (items > AvMAX(av) + 1) {
-- 
1.8.3.1