diff options
| author | Karl Williamson <khw@cpan.org> | 2020-11-07 08:00:30 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-11-07 08:17:56 -0700 |
| commit | ea7c1d7ae3e91620c032d9c5be667b4c4fd8e055 (patch) | |
| tree | f83cce9a55dfd28a9d9e8cd864f72dca8fc0f1ab | |
| parent | 5fd7c63cc75e7ead6d3044131e33e295b911afb0 (diff) | |
| download | perl-ea7c1d7ae3e91620c032d9c5be667b4c4fd8e055.tar.gz | |
perlapi/perlintern: Better sort the SEE ALSO scn
| -rw-r--r-- | autodoc.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/autodoc.pl b/autodoc.pl index f52264c3f9..64491e7517 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -1704,8 +1704,11 @@ my @missing_api = grep $funcflags{$_}{flags} =~ /A/ && !$docs{api}{$_}, keys %funcflags; push @missing_api, keys %missing_macros; -my $other_places = join ", ", map { "L<$_>" } sort dictionary_order qw( perlclib perlxs), - keys %described_elsewhere; +my @other_places = ( qw(perlclib perlxs), keys %described_elsewhere ); +my $places_other_than_intern = join ", ", + map { "L<$_>" } sort dictionary_order 'perlapi', @other_places; +my $places_other_than_api = join ", ", + map { "L<$_>" } sort dictionary_order 'perlintern', @other_places; # The S< > makes things less densely packed, hence more readable my $has_defs_text .= join ",S< > ", map { "C<$_>" } sort dictionary_order @has_defs; @@ -1821,7 +1824,7 @@ _EOB_ | |=head1 SEE ALSO | -|F<config.h>, L<perlintern>, $other_places +|F<config.h>, $places_other_than_api _EOE_ # List of non-static internal functions @@ -1854,5 +1857,5 @@ _EOB_ | |=head1 SEE ALSO | -|F<config.h>, L<perlapi>, $other_places +|F<config.h>, $places_other_than_intern _EOE_ |