[perl #30894] [PATCH] sort config_lib.pasm keys

[via RT]

# New Ticket Created by  Jarkko Hietaniemi 
# Please include the string:  [perl #30894]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=30894 >


Just pretty-printing but makes it easier for puny hoomans to "visual
grep" through the file.

-- 
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'.  It is 'dead'." -- Jack Cohen


--- config/gen/config_pm.pl.dist        2004-07-31 12:32:39.479198700 +0300
+++ config/gen/config_pm.pl     2004-07-31 12:35:15.219763800 +0300
@@ -54,7 +54,7 @@
   while(<IN>) {      
     if(/<<HERE>>/) {
       my $k;
-      for $k(Configure::Data->keys) {
+      for $k(sort { lc $a cmp lc $b || $a cmp $b } Configure::Data->keys) {
        my $v=Configure::Data->get($k);
        if(defined $v) {
           $v =~ s/(["\\])/\\$1/g;