From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 10 Jan 2008 17:27:39 +0000 (+0000)
Subject: Fix bug picked up by printf format warnings - a cast is needed where
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=574b88211c0c7c08c099f0fa17b950a4aaf1c62f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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",