This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_sys.c: U8* cast
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 2 May 2006 20:04:33 +0000 (23:04 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 May 2006 08:52:01 +0000 (08:52 +0000)
Message-Id: <200605021704.k42H4XIh255652@kosh.hut.fi>

p4raw-id: //depot/perl@28076

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);