qw( { [ } ] " ' | \ < , > . ? / ` 3 ~ = ),
(map {uc, lc} qw[ r t y u i o p h j m ]),
);
-$rows{$_} = $rows{ $shift{$_} } for keys %shift; # alias shifted
+$rows{$_} = \$shift{$_} for keys %shift; # alias shifted
my $groups = kbchars(\%rows);
$groups->{flag}{ext} = ['alias', 'identical results from unshifted key'];
-$groups->{def}{''}{$_} .= ' ext' for keys %shift; # mark aliases
+{
%{ $groups },
version => '1.0',
title => 'OLPC',
- category => 'legacy/latin',
+ category => 'legacy/latin/xorg',
intro => join("\n",
"International US English developed for the OLPC project,",
'providing mostly European',