Change 33685 by [EMAIL PROTECTED] on 2008/04/15 12:29:33
Revert change #26334, which was introducing too many bugs
Affected files ...
... //depot/perl/pp_ctl.c#690 edit
Differences ...
==== //depot/perl/pp_ctl.c#690 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#689~33653~ 2008-04-06 13:11:52.000000000 -0700
+++ perl/pp_ctl.c 2008-04-15 05:29:33.000000000 -0700
@@ -231,7 +231,6 @@
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,
End of Patch.
