foreach \$var

Some passing tests are still marked to-do.  We need more tests still.

1 files changed, 8 insertions, 1 deletions

diff --git a/mg.c b/mg.c
index 2b310e3272..bf98374be0 100644
--- a/mg.c
+++ b/mg.c
@@ -2507,7 +2507,14 @@ Perl_magic_setlvref(pTHX_ SV *sv, MAGIC *mg)
 	hv_store_ent((HV *)mg->mg_obj, (SV *)mg->mg_ptr,
 		     SvREFCNT_inc_simple_NN(SvRV(sv)), 0);
     }
-    sv_unmagic(sv, PERL_MAGIC_lvref);
+    if (mg->mg_flags & MGf_PERSIST)
+	NOOP; /* This sv is in use as an iterator var and will be reused,
+		 so we must leave the magic.  */
+    else
+	/* This sv could be returned by the assignment op, so clear the
+	   magic, as lvrefs are an implementation detail that must not be
+	   leaked to the user.  */
+	sv_unmagic(sv, PERL_MAGIC_lvref);
     return 0;
 }