In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7a6610caf3cdf1fa6548256a684d042f4b69a0ab?hp=2ec11c706e768baf2cef93905360762457cecb0d>
- Log ----------------------------------------------------------------- commit 7a6610caf3cdf1fa6548256a684d042f4b69a0ab Author: David Mitchell <[email protected]> Date: Wed Dec 17 15:54:18 2014 +0000 Remove duplicate apidoc entries Modify apidoc.pl to warn about duplicate apidoc entries, and remove duplicates for av_tindex and toLOWER_LC ----------------------------------------------------------------------- Summary of changes: 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 6ba223e..9395d91 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 0029191..3de7b83 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 1e6b15d..f2bd6a8 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 -- Perl5 Master Repository
