Remove duplicate apidoc entries
authorDavid Mitchell <davem@iabyn.com>
Wed, 17 Dec 2014 15:54:18 +0000 (15:54 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 17 Dec 2014 15:54:18 +0000 (15:54 +0000)
Modify apidoc.pl to warn about duplicate apidoc entries, and
remove duplicates for av_tindex and toLOWER_LC

autodoc.pl
av.c
handy.h

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];
 
diff --git a/av.c b/av.c
index 0029191..3de7b83 100644 (file)
--- 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 1e6b15d..f2bd6a8 100644 (file)
--- 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