From: Peter Eisentraut <peter_e@gmx.net>
Date: Thu, 19 Oct 2017 09:58:39 +0000 (-0400)
Subject: UCS_to_most.pl: Process encodings in sorted order
X-Git-Tag: REL_11_BETA1~1366
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=927e1ee2cb74e3bc49454dfa181dcce83b70d371;p=thirdparty%2Fpostgresql.git

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 60431a6a27e..1c3922e2ffa 100755
--- 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)
 {