unicode: prefer shorter digraph codes

diff --git a/unicode.plp b/unicode.plp
index 744eed113eb036184fc04841e894a9c7c65261c6..9b77f7fa43530eaa441c7a6560b944dbcde50e3c 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -36,7 +36,7 @@ Also see the <a href="/digraphs">complete digraphs table</a>.</p>
 <:
 my $diinfo = do 'digraphs.inc.pl';
 my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
 <:
 my $diinfo = do 'digraphs.inc.pl';
 my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }

-       keys %$diinfo;
+       sort { length $a <=> length $b } keys %$diinfo;

 
 sub quote {
        local $_ = shift;
 
 sub quote {
        local $_ = shift;