use warnings;
use utf8;
-use open OUT => ':utf8', ':std';
+use open OUT => ':encoding(utf-8)', ':std';
use File::Basename 'basename';
use Data::Dump 'pp';
(map { "($_)" } $year || ()),
);
push @fontlist, $fontmeta;
- $cover{$fontid} = { map { (chr $_ => 1) } @fontrange };
+ my $fontrange = $fontmeta->{cover};
+ $cover{$fontid} = { map { (chr $_ => 1) } $fontmeta->{cover}->@* };
}
my %charlist;