UCS_to_most.pl: Process encodings in sorted order

petere · petere · commit 927e1ee2cb74 · 2017-10-19T05:58:39.000-04:00
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
@@ -50,7 +50,7 @@
 	'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)
 {

Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,7 @@`
`50`	`50`	`'GBK' => 'CP936.TXT');`
`51`	`51`
`52`	`52`	`# make maps for all encodings if not specified`
`53`		`-my @charsets = (scalar(@ARGV) > 0) ? @ARGV : keys(%filename);`
	`53`	`+my @charsets = (scalar(@ARGV) > 0) ? @ARGV : sort keys(%filename);`
`54`	`54`
`55`	`55`	`foreach my $charset (@charsets)`
`56`	`56`	`{`