index 4f974388d75fb15f6a3e92d31e3eca49b930a8ae..6b699b376d0e2106b51944c985ccb105efe4d95c 100755 (executable)
# make maps for all encodings if not specified
my @charsets = (scalar(@ARGV) > 0) ? @ARGV : sort keys(%filename);
-foreach my $charset (@charsets)
+# the sort is just so that the output is easier to eyeball
+foreach my $charset (sort @charsets)
{
my $mapping = &read_source($filename{$charset});