From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 3 Dec 2001 14:08:59 +0000 (+0000)
Subject: microperl casting nit.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=726d7ae441a72088bad1d8a88f5e5a5f713513be;p=p5sagit%2Fp5-mst-13.2.git

microperl casting nit.

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

diff --git a/utf8.c b/utf8.c
index 8711137..9aded5a 100644
--- 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;