Create a new local $_ without triggering tie by using local *_ = \my $a

[p5sagit/p5-mst-13.2.git] / autodoc.pl

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