This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove duplicate apidoc entries
[perl5.git] / autodoc.pl
index 6ba223e..9395d91 100644 (file)
@@ -159,6 +159,10 @@ DOC:
                $ret = $docref->{retval};
            }
 
+           if (exists $docs{$inline_where}{$curheader}{$name}) {
+                warn "$0: duplicate API entry for '$name' in $inline_where/$curheader\n";
+                next;
+            }
            $docs{$inline_where}{$curheader}{$name}
                = [$flags, $docs, $ret, $file, @args];