From 927e1ee2cb74e3bc49454dfa181dcce83b70d371 Mon Sep 17 00:00:00 2001
From: Peter Eisentraut <peter_e@gmx.net>
Date: Thu, 19 Oct 2017 05:58:39 -0400
Subject: [PATCH] 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.
---
 src/backend/utils/mb/Unicode/UCS_to_most.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/backend/utils/mb/Unicode/UCS_to_most.pl b/src/backend/utils/mb/Unicode/UCS_to_most.pl
index 60431a6a27..1c3922e2ff 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)
 {