pp_pack.c warnings on VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <424C62B9.2030601@mac.com>

p4raw-id: //depot/perl@24126

diff --git a/pp_pack.c b/pp_pack.c
index dcebd5b..34dffb7 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1283,8 +1283,8 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, char *s, char *strbeg, char *strend, char
                from = group ? strbeg + group->strbeg : strbeg;
            }
            sv = from <= s ?
-               newSVuv(  u8 ? (UV) utf8_length(from, s) : (UV) (s-from)) :
-               newSViv(-(u8 ? (IV) utf8_length(s, from) : (IV) (from-s)));
+               newSVuv(  u8 ? (UV) utf8_length((const U8*)from, (const U8*)s) : (UV) (s-from)) :
+               newSViv(-(u8 ? (IV) utf8_length((const U8*)s, (const U8*)from) : (IV) (from-s)));
            XPUSHs(sv_2mortal(sv));
            break;
        }