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 = ( ...@@ -50,7 +50,7 @@ my %filename = (
'GBK' => 'CP936.TXT'); 'GBK' => 'CP936.TXT');
# make maps for all encodings if not specified # 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) 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