foreach \$var

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

1 files changed, 5 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 84e934e47a..2ff3de3400 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1963,6 +1963,11 @@ PP(pp_iter)
             sv = AvARRAY(av)[ix];
         }
 
+        if (UNLIKELY(cx->cx_type & CXp_FOR_LVREF)) {
+            SvSetMagicSV(*itersvp, sv);
+            break;
+        }
+
         if (LIKELY(sv)) {
             if (UNLIKELY(SvIS_FREED(sv))) {
                 *itersvp = NULL;