hash assign in list context should copy key as well

if we don't then returned keys are aliases for RHS
values and can result in unexpected changes

diff --git a/pp_hot.c b/pp_hot.c
index 54f1eec..47b3a7b 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1086,7 +1086,7 @@ PP(pp_aassign)
                while (relem < lastrelem) {     /* gobble up all the rest */
                    HE *didstore;
                    ODD:
-                   sv = *relem ? *relem : &PL_sv_no;
+                   sv = *relem ? gimme == G_ARRAY ? sv_mortalcopy(*relem) : *relem : &PL_sv_no;
                    relem++;
                    tmpstr = sv_newmortal();
                    if (*relem)