Silence warning in debug printf

p4raw-id: //depot/perl@24907

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index 8d23a3148e..867b45c2f7 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);