This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
use the correct type for a format field width parameter
[perl5.git] / pad.c
diff --git a/pad.c b/pad.c
index 43011eb..da35a09 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -1047,7 +1047,7 @@ S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 flags, const CV* cv,
 
     DEBUG_Xv(PerlIO_printf(Perl_debug_log,
        "Pad findlex cv=0x%"UVxf" searching \"%.*s\" seq=%d%s\n",
-       PTR2UV(cv), namelen, namepv, (int)seq,
+                          PTR2UV(cv), (int)namelen, namepv, (int)seq,
        out_capture ? " capturing" : "" ));
 
     /* first, search this pad */