unicode: silence perl warning about empty query range offsets

[sheet.git] / keyboard / altgr / unigraph.eng.inc.pl

diff --git a/keyboard/altgr/unigraph.eng.inc.pl b/keyboard/altgr/unigraph.eng.inc.pl
index 696b70aa32795ce33bd5fef5879aed2d0c9df4f0..fbcf88c68663ad47b18670699b7478b9265a38ca 100644 (file)
--- a/keyboard/altgr/unigraph.eng.inc.pl
+++ b/keyboard/altgr/unigraph.eng.inc.pl
@@ -32,7 +32,7 @@ my %rows = qw`
        +f ╞ +F ╟ +g ╪ +G ╫ +h ╡ +H ╢
        +v ╘ +V ╙ +b ╧ +B ╨ +n ╛ +N ╜
 
-       ' ▬ " ▮
+       ' ▬ " ▮ +' ▪
        > ▛ . ▘ , ▀ M ▜ m ▝
        l ▌ ( ▚ k █ & ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
        O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅
@@ -59,20 +59,21 @@ my %cpcompat = (
 );
 
 while (my ($k, $c) = each %rows) {
-       $groups->{def}{''}{$k} = $cpcompat{$c} // (
+       $groups->{def}{''}{$k}[0] = $cpcompat{$c} // (
                $c =~ /\p{In=1.1}/ ? 'g5' :
                $c =~ /\p{In=6.0}/ ? 'g6' :
                $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g7' : # Age=V13.0
                'g0'
        );
 }
-$groups->{def}{''}{')'} .= ' linkkeyboard/altgr/zoo';
+$groups->{def}{''}{'+0'}[0] .= ' linkkeyboard/altgr/zoo';
+$groups->{def}{''}{ '0'}[0] .= ' linkkeyboard/altgr/im';
 
 +{
        %{ $groups },
-       version => '1.2',
+       version => '1.3',
        title => 'Unicode semigraphics',
-       category => 'specialized',
+       category => 'specialized/graph',
        intro => join("\n",
                sprintf('Keyboard mode to %s draw character graphics.',
                        '<span title="without requiring a specialised editor">manually</span>',