From ea7c1d7ae3e91620c032d9c5be667b4c4fd8e055 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sat, 7 Nov 2020 08:00:30 -0700
Subject: perlapi/perlintern: Better sort the SEE ALSO scn

---
 autodoc.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'autodoc.pl')

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