Ignore missing classes in Perl v5.28 for Unicode v13.0 legacy computing
symbols, while keeping unassigned code points in unicode blocks (various
gaps in Greek overview).
$row->{endpoint} ||= ($block + 1 << 8) - 1;
$block == ($row->{endpoint} >> 8) or undef $block;
- $row->{table} = join '', map { chr } $row->{offset} .. $row->{endpoint};
+ $row->{table} = join '', map { chr =~ s/\A\p{Unassigned}\z/�/r }
+ $row->{offset} .. $row->{endpoint};
utf8::upgrade($row->{table}); # prevent latin1 output
$row->{endpoint} -= $row->{offset};
$cp == ord $glyph ? 'l4' :
$row->{parent} && $glyph eq
Encode::decode($row->{parent}, pack 'C', $cp) ? 'l3' :
- !$class ? undef :
+ !defined $cell ? undef :
$visible->{$glyph} ? 'l2' :
'l1'
);