([@chars2[0, 1, 3, 4, 6]], [@chars2[2, 5, 7]]);
if ($mode) {
- my $xorg = Data('data/digraphs-xorg');
- $_ = [ord $_] for values %{$xorg};
+ my $xorg = Data('digraphs-xorg');
+ $_->[3] = undef for values %{$xorg}; # reset alias classes
$xorg->{$_}->[2] = # class = compatibility
!$di->{key}->{$_} ? 'l2' : # free
$di->{key}->{$_}->[0] != $xorg->{$_}->[0] ? 'l1' : # conflict