summaryrefslogtreecommitdiff
path: root/pp_pack.c
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>2006-09-01 17:10:25 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-09-05 10:40:25 +0000
commitf5992bc4a0a918eda67e6097aac8bd75a3b524e4 (patch)
tree26f5c02dc9031a2719076673e74cba5ac0173c56 /pp_pack.c
parent786e8c118e1218e4c348fecf469934e080881633 (diff)
downloadperl-f5992bc4a0a918eda67e6097aac8bd75a3b524e4.tar.gz
; was RE: [PATCH perlio.c pp.c regcomp.c] silence format and comparison warnings
From: "Robin Barker" <Robin.Barker@npl.co.uk> Message-ID: <2C2E01334A940D4792B3E115F95B7226120A21@exchsvr1.npl.ad.local> p4raw-id: //depot/perl@28786
Diffstat (limited to 'pp_pack.c')
-rw-r--r--pp_pack.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_pack.c b/pp_pack.c
index f155e34388..c898dceb4a 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1971,7 +1971,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
if (++bytes >= sizeof(UV)) { /* promote to string */
const char *t;
- sv = Perl_newSVpvf(aTHX_ "%.*"UVf, (int)TYPE_DIGITS(UV), auv);
+ sv = Perl_newSVpvf(aTHX_ "%.*"UVuf, (int)TYPE_DIGITS(UV), auv);
while (s < strend) {
ch = SHIFT_BYTE(utf8, s, strend, datumtype);
sv = mul128(sv, (U8)(ch & 0x7f));