[perl #27206] Memory leak in continue loop

make sure redo always frees temps

p4raw-id: //depot/perl@22438

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 3c632e2f5c..d426005692 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2115,6 +2115,7 @@ PP(pp_redo)
     TOPBLOCK(cx);
     oldsave = PL_scopestack[PL_scopestack_ix - 1];
     LEAVE_SCOPE(oldsave);
+    FREETMPS;
     return cx->blk_loop.redo_op;
 }