[perl #24506] [PATCH] cannot weaken refs to read only values

[perl5.git] / autodoc.pl

diff --git a/autodoc.pl b/autodoc.pl
index 2044dab..f0b9919 100644 (file)
--- 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) {