[perl #112776] avoid warning on an initialized non-parameter
authorTony Cook <tony@develop-help.com>
Thu, 30 Aug 2012 14:43:19 +0000 (00:43 +1000)
committerTony Cook <tony@develop-help.com>
Fri, 31 Aug 2012 10:08:12 +0000 (20:08 +1000)
A initialized non-parameter in the parameter block would warn
when $^W was set, and Module::Build sets $^W.

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/CountLines.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm
dist/ExtUtils-ParseXS/t/115-avoid-noise.t

index e211081..d50b501 100644 (file)
@@ -11,7 +11,7 @@ use Symbol;
 
 our $VERSION;
 BEGIN {
-  $VERSION = '3.17';
+  $VERSION = '3.18';
 }
 use ExtUtils::ParseXS::Constants $VERSION;
 use ExtUtils::ParseXS::CountLines $VERSION;
@@ -1768,7 +1768,7 @@ sub output_init {
     $argsref->{init},
     $argsref->{printed_name}
   );
-  my $arg = "ST(" . ($num - 1) . ")";
+  my $arg = $num ? "ST(" . ($num - 1) . ")" : "/* not a parameter */";
 
   if (  $init =~ /^=/  ) {
     if ($printed_name) {
index 2f822da..2e27169 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Symbol;
 
-our $VERSION = '3.16';
+our $VERSION = '3.18';
 
 =head1 NAME
 
index 66944cd..7e2a0f5 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::ParseXS::CountLines;
 use strict;
 
-our $VERSION = '3.16';
+our $VERSION = '3.18';
 
 our $SECTION_END_MARKER;
 
index 0ae1eae..d0089f8 100644 (file)
@@ -6,7 +6,7 @@ use File::Spec;
 use lib qw( lib );
 use ExtUtils::ParseXS::Constants ();
 
-our $VERSION = '3.17';
+our $VERSION = '3.18';
 
 our (@ISA, @EXPORT_OK);
 @ISA = qw(Exporter);
index 21febb2..2a99748 100644 (file)
@@ -12,7 +12,6 @@ chdir 't' or die "Can't chdir to t/, $!";
 # warning in that case.
 
 {
-  local $TODO = "Test for warning on non-parameter in parameter list";
   my $out;
   open my $out_fh, ">", \$out;
   my @warnings;