Commit 927e1ee2 authored by Peter Eisentraut's avatar Peter Eisentraut

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.
parent bf54c0f0
......@@ -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)
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment