use warnings;
use utf8;
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
use File::Basename 'basename';
use Data::Dump 'pp';
-our $VERSION = '1.01';
+our $VERSION = '1.02';
my @fontlist;
(map { "($_)" } $year || ()),
);
push @fontlist, $fontmeta;
- $cover{$fontid} = { map { (chr $_ => 1) } @fontrange };
+ my $fontrange = $fontmeta->{cover};
+ $cover{$fontid} = { map { (chr $_ => 1) } $fontmeta->{cover}->@* };
}
my %charlist;
use Unicode::UCD 'charinfo';
for my $code (0 .. 256**2*2) {
my $charinfo = charinfo($code) or next;
- next if $charinfo->{category} =~ /^[MC]/; # ignore Marks and "other" Control chars
+ next if $charinfo->{category} =~ /^[C]/; # ignore "other" Control chars
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
for qw( script category block );
push @{ $charlist{version}->{$_} }, (chr $code) x ($agemap->{$code} <= $_)