Remove duplicate apidoc entries

Modify apidoc.pl to warn about duplicate apidoc entries, and
remove duplicates for av_tindex and toLOWER_LC

3 files changed, 4 insertions, 8 deletions

diff --git a/autodoc.pl b/autodoc.pl
index 6ba223ef13..9395d9102d 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -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];
 
diff --git a/av.c b/av.c
index 002919177a..3de7b83b2c 100644
--- a/av.c
+++ b/av.c
@@ -748,10 +748,6 @@ The Perl equivalent for this is C<$#myarray>.
 
 (A slightly shorter form is C<av_tindex>.)
 
-=for apidoc av_tindex
-
-Same as L</av_top_index>.
-
 =for apidoc av_len
 
 Same as L</av_top_index>.  Note that, unlike what the name implies, it returns
diff --git a/handy.h b/handy.h
index 1e6b15d752..f2bd6a8c76 100644
--- a/handy.h
+++ b/handy.h
@@ -833,10 +833,6 @@ The first code point of the lowercased version is returned
 
 The input character at C<p> is assumed to be well-formed.
 
-=for apidoc Am|U8|toLOWER_LC|U8 ch
-Converts the specified character to lowercase using the current locale's rules,
-if possible; otherwise returns the input character itself.
-
 =for apidoc Am|U8|toTITLE|U8 ch
 Converts the specified character to titlecase.  If the input is anything but an
 ASCII lowercase character, that input character itself is returned.  Variant