From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 31 Mar 2005 14:51:05 +0000 (-0600)
Subject: pp_pack.c warnings on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00646304f46650d8f8cd95d4c043173d162d8d30;p=p5sagit%2Fp5-mst-13.2.git

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