microperl casting nit.

[p5sagit/p5-mst-13.2.git] / utf8.c

diff --git a/utf8.c b/utf8.c
index 8711137..9aded5a 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1590,7 +1590,7 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, bool u1, const char *s2, bool u2, register
                    ulen2 = 1;
               if (ulen1 != ulen2
                   || (ulen1 == 1 && PL_fold[ca] != PL_fold[cb])
-                  || memNE(tmpbuf1, tmpbuf2, ulen1))
+                  || memNE((char *)tmpbuf1, (char *)tmpbuf2, ulen1))
                    return 1;
          }
          a += la;