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 {