From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 20 Jun 2005 10:35:41 +0000 (+0000)
Subject: Silence warning in debug printf
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cdd3ba141d0471cdda288698b2e3ab4be509f775;p=p5sagit%2Fp5-mst-13.2.git

Silence warning in debug printf

p4raw-id: //depot/perl@24907
---

diff --git a/doop.c b/doop.c
index 8d23a31..867b45c 100644
--- a/doop.c
+++ b/doop.c
@@ -1398,7 +1398,7 @@ Perl_do_kv(pTHX)
 	    tmpstr = hv_iterval(hv,entry);
 	    DEBUG_H(Perl_sv_setpvf(aTHX_ tmpstr, "%lu%%%d=%lu",
 			    (unsigned long)HeHASH(entry),
-			    HvMAX(keys)+1,
+			    (int)HvMAX(keys)+1,
 			    (unsigned long)(HeHASH(entry) & HvMAX(keys))));
 	    SPAGAIN;
 	    XPUSHs(tmpstr);