Signedness nit.

p4raw-id: //depot/perl@8274

diff --git a/utf8.c b/utf8.c
index f65c94f..99cb8b9 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -167,7 +167,7 @@ Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len)
     STRLEN c;
 
     if (!len)
-       len = strlen(s);
+       len = strlen((char *)s);
     send = s + len;
 
     while (x < send) {