parts/apicheck.pl: ignore duplicate function

(cherry picked from commit 9dfb2a45f3db2125b67e3f6b9783e10a129dab57)
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 9c2a0f3..65ece66 100644 (file)
--- a/dist/Devel-PPPort/parts/apicheck.pl
+++ b/dist/Devel-PPPort/parts/apicheck.pl
@@ -200,6 +200,8 @@ for $f (@f) {
   $ignore{$f->{name}} and next;
   $f->{flags}{A} or next;  # only public API members
 
+  $ignore{$f->{name}} = 1; # ignore duplicates
+
   my $Perl_ = $f->{flags}{p} ? 'Perl_' : '';
 
   my $stack = '';