From 023c53f6c93c69b9d4f28eec8f57e9e335cfbd25 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 2 May 2009 17:21:14 +0000
Subject: [PATCH] unicode: prefer shorter digraph codes

---
 unicode.plp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.30.0