Corrected Perl5 example of Formatted output and significant digits

[perl5.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 4db0e23..34542c2 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2461,6 +2461,7 @@ PP(pp_grepwhile)
     if (SvTRUEx(POPs))
        PL_stack_base[PL_markstack_ptr[-1]++] = PL_stack_base[*PL_markstack_ptr];
     ++*PL_markstack_ptr;
+    FREETMPS;
     LEAVE_with_name("grep_item");                                      /* exit inner scope */
 
     /* All done yet? */