From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 Nov 2000 14:19:53 +0000 (+0000)
Subject: printf UVs the correct way, noticed by Robin Barker.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efbcad092c681143311dde18e67eb4eea2714e2e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
     }