This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Devel::Peek: fix some compiler warnings
authorDavid Mitchell <davem@iabyn.com>
Tue, 12 Nov 2013 16:11:33 +0000 (16:11 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Nov 2013 10:38:40 +0000 (10:38 +0000)
ext/Devel-Peek/Peek.pm
ext/Devel-Peek/Peek.xs

index 54f26f6..7f811e1 100644 (file)
@@ -3,7 +3,7 @@
 
 package Devel::Peek;
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
index 91b7555..ef77830 100644 (file)
@@ -353,7 +353,8 @@ S_ck_dump(pTHX_ OP *entersubop, GV *namegv, SV *cv)
 {
     OP *aop, *prev, *first, *second = NULL;
     BINOP *newop;
-    size_t arg = 0;
+
+    PERL_UNUSED_ARG(cv);
 
     ck_entersub_args_proto(entersubop, namegv,
                           newSVpvn_flags("$;$", 3, SVs_TEMP));