Fix warning with int size in printf format

p4raw-id: //depot/perl@33703

diff --git a/gv.c b/gv.c
index fa01807..2b381a6 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -671,7 +671,7 @@ Perl_gv_fetchmethod_flags(pTHX_ HV *stash, const char *name, U32 flags)
            if (stash) {
                Perl_croak(aTHX_
                           "Can't locate object method \"%s\" via package \"%.*s\"",
-                          name, HvNAMELEN_get(stash), HvNAME_get(stash));
+                          name, (STRLEN)HvNAMELEN_get(stash), HvNAME_get(stash));
            }
            else {
                STRLEN packlen;