X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/2e8c1e3cc39cc1c6e4b858242d2a3a39481b9640..c4ca0bd3e94a7978772dadaa3b941ecc84741407:/keyboard/altgr/msx-graph.eng.inc.pl

diff --git a/keyboard/altgr/msx-graph.eng.inc.pl b/keyboard/altgr/msx-graph.eng.inc.pl
index 3bcf5d1..1b79678 100644
--- a/keyboard/altgr/msx-graph.eng.inc.pl
+++ b/keyboard/altgr/msx-graph.eng.inc.pl
@@ -124,13 +124,13 @@ if (exists $get{compat}) {
 my $groups = kbchars(\%rows);
 
 # replace rare punctuation distinctions by symbols
-$groups->{def}{''}{$_} =~ s/g[78]/g6/ for keys %rows;
+$groups->{def}{''}{$_}[0] =~ s/g[78]/g6/ for keys %rows;
 
-$groups->{def}{''}{$_} = 'g7'
+$groups->{def}{''}{$_}[0] = 'g7'
 	for grep { $rows{$_} =~ /[\x{2500}-\x{259F}]/ } keys %rows;
 $groups->{flag}{g7} = ['drawing', 'box drawing or block elements'];
 
-$groups->{def}{''}{$_} = 'g8' for keys %compat; # mostly U+1FBxx
+$groups->{def}{''}{$_}[0] = 'g8' for keys %compat; # mostly U+1FBxx
 $groups->{flag}{g8} = ['legacy',
 	'drawing symbols best represented by Unicode 13.0'
 	. (exists $get{compat} && ', converted to compatible equivalents')