From 8e5e9ebe73253381295c8c22fd24720255d732e9 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 10 Oct 2001 19:23:44 +0200 Subject: two s/// bugfixes Message-Id: <20011010172344.C22440@rafael> p4raw-id: //depot/perl@12392 --- pp_ctl.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index b14e27f4c2..09c1a190c6 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -172,6 +172,7 @@ PP(pp_substcont) rxres_restore(&cx->sb_rxres, rx); if (cx->sb_iters++) { + I32 saviters = cx->sb_iters; if (cx->sb_iters > cx->sb_maxiters) DIE(aTHX_ "Substitution loop"); @@ -213,6 +214,7 @@ PP(pp_substcont) POPSUBST(cx); RETURNOP(pm->op_next); } + cx->sb_iters = saviters; } if (RX_MATCH_COPIED(rx) && rx->subbeg != orig) { m = s; -- cgit v1.2.1