From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 2 May 2009 17:21:14 +0000 (+0000)
Subject: unicode: prefer shorter digraph codes
X-Git-Tag: v1.3~151
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/023c53f6c93c69b9d4f28eec8f57e9e335cfbd25?ds=sidebyside

unicode: prefer shorter digraph codes
---

diff --git a/unicode.plp b/unicode.plp
index 744eed1..9b77f7f 100644
--- 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->{$_} }
-	keys %$diinfo;
+	sort { length $a <=> length $b } keys %$diinfo;
 
 sub quote {
 	local $_ = shift;