chars: include plane 1 groups
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 5 Mar 2015 06:29:34 +0000 (07:29 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:43 +0000 (05:43 +0200)
tools/mkfontinfo

index 85fa914..1019043 100755 (executable)
@@ -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