X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/29a9152f92330b53f37780b117a4c2a7259fb851..20500d885f632dc1d88e69f7e7750b84054410bd:/keyboard.eng.inc.pl

diff --git a/keyboard.eng.inc.pl b/keyboard.eng.inc.pl
index 1f372e3..4b72d08 100644
--- a/keyboard.eng.inc.pl
+++ b/keyboard.eng.inc.pl
@@ -1,6 +1,10 @@
+use strict;
+use warnings;
 use Unicode::Normalize qw( NFKD );
 use Text::Unidecode qw( unidecode );
 
+our %rows;
+my %g; # present group classes
 {
 	rows => [0, 1],
 	def => {
@@ -17,6 +21,7 @@ use Text::Unidecode qw( unidecode );
 					: $v =~ /^\p{Latin}/ ? 5 # latin script
 					: 6
 				);
+				$g{$class} = 1;
 				$_ => "g$class"
 			} keys %rows
 		},
@@ -29,7 +34,9 @@ use Text::Unidecode qw( unidecode );
 		g5 => ['latin', "a different (accented) latin letter"],
 		g6 => ['symbol', "other character not directly deducible from key"],
 		g7 => ['punctuation', "(punctuation) mark"],
+			!$g{9} ? () : (
 		g8 => ['mark', "modifier letter or mark (spacing diacritic)"],
 		g9 => ['combining', "diacritical mark to be combined with a following character"],
+			),
 	},
 }