diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2003-10-02 09:15:42 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-10-02 09:15:42 +0000 |
| commit | 6a477168226f5506df9ce7c01de57e2808b61d82 (patch) | |
| tree | 699d67c55aecfbfd833c9ad6d103a146c7bcaec8 /autodoc.pl | |
| parent | ee97c186303ca07163a2ddfef6ec7d2c708126c6 (diff) | |
| download | perl-6a477168226f5506df9ce7c01de57e2808b61d82.tar.gz | |
build perlapi.pod in deterministic order even when functions differ
only in case; regen perlapi.pod
p4raw-id: //depot/perl@21398
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 503fc5e104..f0b9919883 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -209,7 +209,8 @@ The listing is alphabetical, case insensitive. _EOB_ my $key; -for $key (sort { uc($a) cmp uc($b); } keys %apidocs) { # case insensitive sort +# case insensitive sort, with fallback for determinacy +for $key (sort { uc($a) cmp uc($b) || $a cmp $b } keys %apidocs) { my $section = $apidocs{$key}; print DOC "\n=head1 $key\n\n=over 8\n\n"; for my $key (sort { uc($a) cmp uc($b); } keys %$section) { |