Silence "signed/unsigned mismatch" warning from VC++ when building

with -DPERL_DEBUGGING_MSTATS

p4raw-id: //depot/perl@31430

diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs
index 75023cd..f07c2e5 100644 (file)
--- a/ext/Devel/Peek/Peek.xs
+++ b/ext/Devel/Peek/Peek.xs
@@ -226,9 +226,8 @@ _mstats_to_hv(HV *hv, const struct mstats_buffer *b, int level)
        warn("FIXME: internal mstats buffer too short");
     
     for (type = 0; type < (level ? 4 : 2); type++) {
-       UV *p = 0, *p1 = 0;
+       UV *p = 0, *p1 = 0, i;
        AV *av;
-       int i;
        static const char *types[4] = { 
            "free", "used", "mem_size", "available_size"    
        };