From 7a6610caf3cdf1fa6548256a684d042f4b69a0ab Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Wed, 17 Dec 2014 15:54:18 +0000 Subject: Remove duplicate apidoc entries Modify apidoc.pl to warn about duplicate apidoc entries, and remove duplicates for av_tindex and toLOWER_LC --- autodoc.pl | 4 ++++ av.c | 4 ---- handy.h | 4 ---- 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.) -=for apidoc av_tindex - -Same as L. - =for apidoc av_len Same as L. 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

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 -- cgit v1.2.1