diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-03-31 08:51:05 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-31 21:51:28 +0000 |
| commit | 6eb7d81919bf34a79c694beca0ea8806af816dbb (patch) | |
| tree | 3a0457a3b6fbc8cef67d65c4fa76c6597fdf3801 | |
| parent | dcf55ebf9aabce2254dfa06ff168d59f3185bf5c (diff) | |
| download | perl-6eb7d81919bf34a79c694beca0ea8806af816dbb.tar.gz | |
pp_pack.c warnings on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <424C62B9.2030601@mac.com>
p4raw-id: //depot/perl@24126
| -rw-r--r-- | pp_pack.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |