pp_sys.c: U8* cast

Message-Id: <200605021704.k42H4XIh255652@kosh.hut.fi>

p4raw-id: //depot/perl@28076

diff --git a/pp_sys.c b/pp_sys.c
index 86061a6..2df5a77 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1867,7 +1867,7 @@ PP(pp_send)
                    /* Don't call sv_len_utf8 again because it will call magic
                       or overloading a second time, and we might get back a
                       different result.  */
-                   blen_chars = utf8_length(buffer, buffer + blen);
+                   blen_chars = utf8_length((U8*)buffer, (U8*)buffer + blen);
                } else {
                    /* It's safe, and it may well be cached.  */
                    blen_chars = sv_len_utf8(bufsv);