unicode: prefer shorter digraph codes
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 2 May 2009 17:21:14 +0000 (17:21 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 2 May 2009 17:21:14 +0000 (17:21 +0000)
unicode.plp

index 744eed1..9b77f7f 100644 (file)
@@ -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->{$_} }
-       keys %$diinfo;
+       sort { length $a <=> length $b } keys %$diinfo;
 
 sub quote {
        local $_ = shift;