Signedness nit.

p4raw-id: //depot/perl@8274

1 files changed, 1 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index f65c94fbc7..99cb8b9d55 100644
--- 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) {