use File::Basename 'basename';
use Data::Dump 'pp';
-our $VERSION = '1.01';
+our $VERSION = '1.02';
my @fontlist;
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} <= $_)