1 files changed, 4 insertions, 3 deletions
diff --git a/op.c b/op.c
index c7da1c58eb..39a9b18ad9 100644
--- a/op.c
+++ b/op.c
@@ -2645,12 +2645,13 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 	}
 	if (!squash) {
 	    if (to_utf && from_utf) {	/* only counting characters */
-		if (t == r || (tlen == rlen && memEQ(t, r, tlen)))
+		if (t == r ||
+		    (tlen == rlen && memEQ((char *)t, (char *)r, tlen)))
 		    o->op_private |= OPpTRANS_IDENTICAL;
 	    }
 	    else {	/* straight latin-1 translation */
-		if (tlen == 4 && memEQ(t, "\0\377\303\277", 4) &&
-		    rlen == 4 && memEQ(r, "\0\377\303\277", 4))
+		if (tlen == 4 && memEQ((char *)t, "\0\377\303\277", 4) &&
+		    rlen == 4 && memEQ((char *)r, "\0\377\303\277", 4))
 		    o->op_private |= OPpTRANS_IDENTICAL;
 	    }
 	}