From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Mar 2015 06:29:34 +0000 (+0100)
Subject: chars: include plane 1 groups
X-Git-Tag: v1.7~46
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/5f4bdebe887e0d75a9db49bd98631e8df78b015d

chars: include plane 1 groups
---

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index 85fa914..1019043 100755
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -65,7 +65,7 @@ eval {
 
 eval {
 	use Unicode::UCD 'charinfo';
-	for my $code (0 .. 256**2) {
+	for my $code (0 .. 256**2*2) {
 		my $charinfo = charinfo($code) or next;
 		next if $charinfo->{category} =~ /^[MC]/;  # ignore Marks and "other" Control chars
 		push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code