Fix bug picked up by printf format warnings - a cast is needed where

UV is larger than U32 for dumping leaking scalars.

p4raw-id: //depot/perl@32935

diff --git a/perl.c b/perl.c
index 7856208..4442112 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1222,7 +1222,8 @@ perl_destruct(pTHXx)
                        " flags=0x%"UVxf
                        " refcnt=%"UVuf pTHX__FORMAT "\n"
                        "\tallocated at %s:%d %s %s%s\n",
-                       (void*)sv, sv->sv_flags, sv->sv_refcnt pTHX__VALUE,
+                       (void*)sv, (UV)sv->sv_flags, (UV)sv->sv_refcnt
+                       pTHX__VALUE,
                        sv->sv_debug_file ? sv->sv_debug_file : "(unknown)",
                        sv->sv_debug_line,
                        sv->sv_debug_inpad ? "for" : "by",