parts/apicheck.pl: Handle const parameters

We now have parameters that are declared 'const'.  The code generated
previously was declared const without being initialized, which is now
fatal.

(cherry picked from commit 35286f38df4517fb5fa338fcff410eaa5c0ddce0)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/parts/apicheck.pl b/dist/Devel-PPPort/parts/apicheck.pl
index e043690..5f7cfd5 100644 (file)
--- a/dist/Devel-PPPort/parts/apicheck.pl
+++ b/dist/Devel-PPPort/parts/apicheck.pl
@@ -235,7 +235,9 @@ for $f (@f) {
     else {
       my $v = 'arg' . $i++;
       push @arg, $v;
-      $stack .= "  static $n $p$v$d;\n";
+      my $no_const_n = $n;
+      $no_const_n =~ s/\bconst\b// unless $p;
+      $stack .= "  static $no_const_n $p$v$d;\n";
     }
   }