APItest/t/utf8_setup.pl: Split function into two

[perl5.git] / locale.c

diff --git a/locale.c b/locale.c
index 1ba802f..258542a 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1955,8 +1955,8 @@ S_print_collxfrm_input_and_return(pTHX_
 
     PERL_ARGS_ASSERT_PRINT_COLLXFRM_INPUT_AND_RETURN;
 
-    PerlIO_printf(Perl_debug_log, "_mem_collxfrm[%u]: returning ",
-                                                            PL_collation_ix);
+    PerlIO_printf(Perl_debug_log, "_mem_collxfrm[%" UVuf "]: returning ",
+                                                        (UV)PL_collation_ix);
     if (xlen) {
         PerlIO_printf(Perl_debug_log, "%" UVuf, (UV) *xlen);
     }