Make list assignment respect foreach aliasing

See ff2a62e0c8 for the explanation.  The bug fix in that commit did
not apply to foreach’s aliasing.

In short, ($a,$b)=($c,$d) needs to account for whether two of those
variable names could be referring to the same variable.

This commit causes the test suite to exercise a code path in scope.c
added by ff2a62e0c8, which turned out to be buggy.  (I forgot to test
it at the time.)

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index d72ec1c2f4..3d02f3a96a 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2118,6 +2118,7 @@ PP(pp_enteriter)
 	save_pushptrptr(gv, SvREFCNT_inc(*svp), SAVEt_GVSV);
 	*svp = newSV(0);
 	itervar = (void *)gv;
+	save_aliased_sv(gv);
     }
 
     if (PL_op->op_private & OPpITER_DEF)