| 1 |
Revert an incorrect substitution optimization introduced in 5.10.0. (Closes: #501178)
|
| 2 |
|
| 3 |
[perl #52658]
|
| 4 |
|
| 5 |
Bug introduced by upstream change 26334, reverted with change 33685 in blead
|
| 6 |
and 33732 in maint-5.10.
|
| 7 |
diff --git a/pp_ctl.c b/pp_ctl.c
|
| 8 |
index 7a377f0..88269a7 100644
|
| 9 |
--- a/pp_ctl.c
|
| 10 |
+++ b/pp_ctl.c
|
| 11 |
@@ -218,7 +218,6 @@ PP(pp_substcont)
|
| 12 |
if (!(cx->sb_rxtainted & 2) && SvTAINTED(TOPs))
|
| 13 |
cx->sb_rxtainted |= 2;
|
| 14 |
sv_catsv(dstr, POPs);
|
| 15 |
- FREETMPS; /* Prevent excess tmp stack */
|
| 16 |
|
| 17 |
/* Are we done */
|
| 18 |
if (cx->sb_once || !CALLREGEXEC(rx, s, cx->sb_strend, orig,
|
Parent Directory
| 
Revision Log