diff options
author | David Mitchell <davem@iabyn.com> | 2013-07-15 19:54:53 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-07-28 10:33:38 +0100 |
commit | 39b40493c96b93db5e5812d0a8923039da82a142 (patch) | |
tree | f7923605e39c14db1f3daddb657386603ee144c8 /pp_hot.c | |
parent | 6ac6605d91b6e84f101f1e57bb0df180e982b4c5 (diff) | |
download | perl-39b40493c96b93db5e5812d0a8923039da82a142.tar.gz |
pp_subst: reduce scope of 'd' variable
It's just used as a temporary value in two branches;
so make it a local var in each of those branches.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -2016,7 +2016,6 @@ PP(pp_subst) char *strend; char *m; const char *c; - char *d; STRLEN clen; I32 iters = 0; I32 maxiters; @@ -2183,8 +2182,9 @@ PP(pp_subst) orig = SvPV_force_nomg(TARG, len); goto force_it; } - d = s; + if (once) { + char *d; if (RX_MATCH_TAINTED(rx)) /* run time pattern taint, eg locale */ rxtainted |= SUBST_TAINT_PAT; m = orig + RX_OFFS(rx)[0].start; @@ -2223,6 +2223,7 @@ PP(pp_subst) PUSHs(&PL_sv_yes); } else { + char *d = s; do { if (iters++ > maxiters) DIE(aTHX_ "Substitution loop"); |