diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-01 14:19:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-01 14:19:53 +0000 |
| commit | efbcad092c681143311dde18e67eb4eea2714e2e (patch) | |
| tree | 3182fc3512424812cc0032d89f9ef7a7b3726465 /utf8.c | |
| parent | dc5019e0d5d16f82558242b3acac477a22efb34b (diff) | |
| download | perl-efbcad092c681143311dde18e67eb4eea2714e2e.tar.gz | |
printf UVs the correct way, noticed by Robin Barker.
p4raw-id: //depot/perl@7509
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -205,7 +205,7 @@ Perl_utf8_to_uv(pTHX_ U8* s, STRLEN curlen, STRLEN* retlen, U32 flags) !(flags & UTF8_ALLOW_CONTINUATION)) { if (dowarn) Perl_warner(aTHX_ WARN_UTF8, - "Malformed UTF-8 character (unexpected continuation byte 0x%02x)", + "Malformed UTF-8 character (unexpected continuation byte 0x%02"UVxf")", uv); goto malformed; } @@ -214,7 +214,7 @@ Perl_utf8_to_uv(pTHX_ U8* s, STRLEN curlen, STRLEN* retlen, U32 flags) !(flags & UTF8_ALLOW_NON_CONTINUATION)) { if (dowarn) Perl_warner(aTHX_ WARN_UTF8, - "Malformed UTF-8 character (unexpected non-continuation byte 0x%02x after byte 0x%02x)", + "Malformed UTF-8 character (unexpected non-continuation byte 0x%02"UVxf" after byte 0x%02"UVxf")", s[1], uv); goto malformed; } @@ -223,7 +223,7 @@ Perl_utf8_to_uv(pTHX_ U8* s, STRLEN curlen, STRLEN* retlen, U32 flags) !(flags & UTF8_ALLOW_FE_FF)) { if (dowarn) Perl_warner(aTHX_ WARN_UTF8, - "Malformed UTF-8 character (byte 0x%02x)", + "Malformed UTF-8 character (byte 0x%02"UVxf")", uv); goto malformed; } |