unicode: stable order of digraph inclusion

[sheet.git] / tools / mkcharinfo

diff --git a/tools/mkcharinfo b/tools/mkcharinfo
index 2c006c5d34fd202cc8aec19648953516796116be..dfcd13de1181478bf9274c29932226a64e17e7c8 100755 (executable)
--- a/tools/mkcharinfo
+++ b/tools/mkcharinfo
@@ -54,7 +54,8 @@ my %diinc = (
 for (sort keys %diinc) {
        -e $_ or next;
        my $di = do $_ or die "Error reading digraphs file $_: ", $@ || $!;
-       while (my ($mnem, $cp) = each %$di) {
+       for my $mnem (sort keys %{$di}) {
+               my $cp = $di->{$mnem};
                length $mnem == 2 or next;  # limit to digraphs
                my $class = $diinc{$_};
                $info{chr $cp}->{di} //= $mnem;