printf UVs the correct way, noticed by Robin Barker.

p4raw-id: //depot/perl@7509

diff --git a/utf8.c b/utf8.c
index 9ac63a6..5237ac4 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -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;
     }