Revert change #26334, which was introducing too many bugs

p4raw-link: @26334 on //depot/perl: 8ff629d935fd2dba7977969e7922b9cd55cc75d2

p4raw-id: //depot/perl@33685

diff --git a/pp_ctl.c b/pp_ctl.c
index 2783d69..08c6d70 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -231,7 +231,6 @@ PP(pp_substcont)
        if (!(cx->sb_rxtainted & 2) && SvTAINTED(TOPs))
            cx->sb_rxtainted |= 2;
        sv_catsv(dstr, POPs);
-       FREETMPS; /* Prevent excess tmp stack */
 
        /* Are we done */
        if (CxONCE(cx) || !CALLREGEXEC(rx, s, cx->sb_strend, orig,