This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: fix compiler warning
authorDavid Mitchell <davem@iabyn.com>
Fri, 17 Mar 2017 09:57:39 +0000 (09:57 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 17 Mar 2017 09:57:39 +0000 (09:57 +0000)
(this is debugging-only code)

It was trying to printf a U32 using %u

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