X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/36bb303b6ac55df9c2780b48d374c505374dc378..e6469971c726b88fe545b74db248847f2ef9b3e3:/autodoc.pl

diff --git a/autodoc.pl b/autodoc.pl
index 2044dab..f0b9919 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -5,7 +5,7 @@ require 5.003;	# keep this compatible, an old perl is all we may have before
 
 BEGIN {
   push @INC, 'lib';
-  require 'regen.pl';
+  require 'regen_lib.pl';
 }	# glob() below requires File::Glob
 
 
@@ -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) {