diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-15 12:29:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-15 12:29:33 +0000 |
| commit | ef0d4e17921ee3de62e9c127fad712496e6d7810 (patch) | |
| tree | 2b6eceaf04c9997789cd06dd26022d9643ebb7b3 /pp_ctl.c | |
| parent | 5562fa714b8071354c365365c26a950efa73179a (diff) | |
| download | perl-ef0d4e17921ee3de62e9c127fad712496e6d7810.tar.gz | |
Revert change #26334, which was introducing too many bugs
p4raw-link: @26334 on //depot/perl: 8ff629d935fd2dba7977969e7922b9cd55cc75d2
p4raw-id: //depot/perl@33685
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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, |