From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 19 Apr 2006 09:09:14 +0000 (+0000)
Subject: Replace some Copy() by Move() calls, because valgrind reports
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=640af7f1c049ab83d4ea0840bc5fa3e1973e991f;p=p5sagit%2Fp5-mst-13.2.git

Replace some Copy() by Move() calls, because valgrind reports
we can have overlapping memory areas here

p4raw-id: //depot/perl@27897
---

diff --git a/doop.c b/doop.c
index 202e320..c4edb60 100644
--- a/doop.c
+++ b/doop.c
@@ -215,7 +215,7 @@ S_do_trans_complex(pTHX_ SV *sv)
 
 		if (comp > 0xff) {
 		    if (!complement) {
-			Copy(s, d, len, U8);
+			Move(s, d, len, U8);
 			d += len;
 		    }
 		    else {
@@ -243,7 +243,7 @@ S_do_trans_complex(pTHX_ SV *sv)
 		    continue;
 		}
 		else if (ch == -1) {	/* -1 is unmapped character */
-		    Copy(s, d, len, U8);
+		    Move(s, d, len, U8);
 		    d += len;
 		}
 		else if (ch == -2)      /* -2 is delete character */
@@ -278,7 +278,7 @@ S_do_trans_complex(pTHX_ SV *sv)
 		    matches++;
 		}
 		else if (ch == -1) {	/* -1 is unmapped character */
-		    Copy(s, d, len, U8);
+		    Move(s, d, len, U8);
 		    d += len;
 		}
 		else if (ch == -2)      /* -2 is delete character */