This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence warning in debug printf
authorNicholas Clark <nick@ccl4.org>
Mon, 20 Jun 2005 10:35:41 +0000 (10:35 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 20 Jun 2005 10:35:41 +0000 (10:35 +0000)
p4raw-id: //depot/perl@24907

doop.c

diff --git a/doop.c b/doop.c
index 8d23a31..867b45c 100644 (file)
--- 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);