keywords => [qw'
unicode glyph char character reference common ipa symbol sign mark table digraph
'],
- stylesheet => [qw'light dark mono circus red'],
data => [qw( unicode-table.inc.pl data/unicode-char.inc.pl )],
});
if (@select) {
my $rowlen;
- for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
+ for ($rowlen = 1; $rowlen <= $#$table; $rowlen++) {
last if $table->[$rowlen] =~ /\./;
}
my @cells = map {
+ s/^(?=-)/0/;
my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
$_ * $rowlen .. $end * $rowlen - 1;
} @select;