POPLOOP(): no need to mortalise current item

Now that pp_return() protects its return arg(s) against premature freeing
before calling dounwind(), there's no need for POPLOOP to mortalise the
current item.

diff --git a/cop.h b/cop.h
index e430201..5cf5a30 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -845,8 +845,7 @@ struct block_loop {
                 cursv = *svp;                                           \
                 *svp = cx->blk_loop.itersave;                           \
             }                                                           \
-            /* delayed rc-- in case of "for $x (...) { return $x }" */  \
-            sv_2mortal(cursv);                                          \
+            SvREFCNT_dec(cursv);                                        \
         }                                                               \
 
 /* given/when context */