Move all code that relies on reading the to-be-thrown-away buffer ahead

of the call to sv_chop() that throws it away.

p4raw-id: //depot/perl@32777

1 files changed, 1 insertions, 3 deletions

diff --git a/pp_hot.c b/pp_hot.c
index f987357bf8..c6b5c5c097 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2197,10 +2197,8 @@ PP(pp_subst)
 	    else if ((i = m - s)) {	/* faster from front */
 		d -= clen;
 		m = d;
+		Move(s, d - i, i, char);
 		sv_chop(TARG, d-i);
-		s += i;
-		while (i--)
-		    *--d = *--s;
 		if (clen)
 		    Copy(c, m, clen, char);
 	    }