'table/punctuation',
'block/Dingbats',
'table/symbols',
+ 'category/Sc', # currency
'table/math',
+ 'category/Sm', # mathematical
'table/arrows/single',
'table/lines/single',
'table/block',
'table/html',
);
-for my $group ($ENV{PATH_INFO} || ()) {
+if (my $group = $ENV{PATH_INFO}) {
$group =~ s{^/}{};
my $grouprows = $cover->{$group}
or die "Unknown character category $_\n";