In perl.git, the branch smoke-me/leont/safe-utf8 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0aa66ef1d77c1bf3e7064d2d751203bfe2d9ece0?hp=a80df440c5b4509d8536f4585a1d3d4985770e24>
- Log ----------------------------------------------------------------- commit 0aa66ef1d77c1bf3e7064d2d751203bfe2d9ece0 Author: Leon Timmermans <[email protected]> Date: Wed Apr 11 11:48:49 2012 +0200 Use integers more carefully ----------------------------------------------------------------------- Summary of changes: perlio.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perlio.c b/perlio.c index d68203b..080fdd7 100644 --- a/perlio.c +++ b/perlio.c @@ -4920,7 +4920,7 @@ static STRLEN validate(pTHX_ const U8 *buf, const U8 *end, const int flags, Perl const U8 *cur = buf; const U8 *end4 = end - 4; STRLEN skip = 0; - uint32_t v; + U32 v; while (cur < end4) { while (cur < end4 && *cur < 0x80) @@ -5025,7 +5025,7 @@ static int lookup_parameter(pTHX_ const char* ptr, size_t len) { if (map[i].length == len && memcmp(ptr, map[i].name, len) == 0) return map[i].value; } - Perl_croak(aTHX_ "Unknown argument to :utf8_strict: %*s", len, ptr); + Perl_croak(aTHX_ "Unknown argument to :utf8_strict: %*s", (int)len, ptr); } static int parse_parameters(pTHX_ SV* param) { STRLEN len; -- Perl5 Master Repository
