UCS_to_most.pl: Process encodings in sorted order

Otherwise the order depends on the Perl hash implementation, making it
cumbersome to scan the output when debugging.

diff --git a/src/backend/utils/mb/Unicode/UCS_to_most.pl b/src/backend/utils/mb/Unicode/UCS_to_most.pl
index 60431a6a27ea74a02d09514b7d7ccd4e0cd279a9..1c3922e2ffadda7dde722525aae4f84f61c90f13 100755 (executable)
--- a/src/backend/utils/mb/Unicode/UCS_to_most.pl
+++ b/src/backend/utils/mb/Unicode/UCS_to_most.pl
@@ -50,7 +50,7 @@ my %filename = (
        'GBK'        => 'CP936.TXT');
 
 # make maps for all encodings if not specified
-my @charsets = (scalar(@ARGV) > 0) ? @ARGV : keys(%filename);
+my @charsets = (scalar(@ARGV) > 0) ? @ARGV : sort keys(%filename);
 
 foreach my $charset (@charsets)
 {