# 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;