From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 15 Apr 2008 12:29:33 +0000 (+0000)
Subject: Revert change #26334, which was introducing too many bugs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef0d4e17921ee3de62e9c127fad712496e6d7810;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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,