while (my ($k, $c) = each %rows) {
# override letter-based classes by unicode versions
- $groups->{def}{''}{$k} = (
+ $groups->{def}{''}{$k}[0] = (
$c =~ /\p{General_Category=Modifier_Symbol}/ ? 'g9' :
$c =~ /\p{In=1.1}/ ? 'g2' :
$c =~ /\p{In=5.2}/ ? 'g3' :