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.
This commit is contained in:
Peter Eisentraut 2017-10-19 05:58:39 -04:00
parent bf54c0f05c
commit 927e1ee2cb
1 changed files with 1 additions and 1 deletions

View File

@ -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)
{