chars: include plane 1 groups

[sheet.git] / tools / mkfontinfo

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index 85fa91441c51d3cb468e6b37b37456fecc8d12f2..10190437fadb8e78770a388d6d91ffc8fd2ed6c7 100755 (executable)
--- 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