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
authorTony Cook <tony@develop-help.com>
Sun, 24 Jul 2011 04:09:28 +0000 (14:09 +1000)
committerTony Cook <tony@develop-help.com>
Sun, 24 Jul 2011 04:09:28 +0000 (14:09 +1000)
This was warning in DEBUGGING builds

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",
 
     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 */
        out_capture ? " capturing" : "" ));
 
     /* first, search this pad */