Can't printf U8s as UVs.
Jarkko Hietaniemi [Wed, 19 Dec 2001 14:18:10 +0000 (14:18 +0000)]
p4raw-id: //depot/perl@13801

utf8.c

diff --git a/utf8.c b/utf8.c
index 4ca7b1c..b3acd0c 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -255,7 +255,7 @@ Perl_utf8n_to_uvuni(pTHX_ U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
     UV uv = *s, ouv = 0;
     STRLEN len = 1;
     bool dowarn = ckWARN_d(WARN_UTF8);
-    U8 startbyte = *s;
+    UV startbyte = *s;
     STRLEN expectlen = 0;
     U32 warning = 0;