From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 12 Dec 2023 17:44:48 +0000 (+0100)
Subject: keyboard: report code errors in altgr includes
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/20500d885f632dc1d88e69f7e7750b84054410bd

keyboard: report code errors in altgr includes
---

diff --git a/altgr-macos.eng.inc.pl b/altgr-macos.eng.inc.pl
index 0c1e694..774734a 100644
--- a/altgr-macos.eng.inc.pl
+++ b/altgr-macos.eng.inc.pl
@@ -1,4 +1,6 @@
 use utf8;
+use strict;
+use warnings;
 our %rows = (
 	'A' => 'Å',
 	'a' => 'Ã¥',
diff --git a/altgr-ukext.eng.inc.pl b/altgr-ukext.eng.inc.pl
index d5f7749..ec04b8a 100644
--- a/altgr-ukext.eng.inc.pl
+++ b/altgr-ukext.eng.inc.pl
@@ -1,4 +1,6 @@
 use utf8;
+use strict;
+use warnings;
 our %rows = (
 	'~' => '¦',
 	'!' => '¡',
diff --git a/altgr.eng.inc.pl b/altgr.eng.inc.pl
index e983455..9abad16 100644
--- a/altgr.eng.inc.pl
+++ b/altgr.eng.inc.pl
@@ -1,4 +1,6 @@
 use utf8;
+use strict;
+use warnings;
 my @az = ('A'..'Z', 'a'..'z');
 my @letters = qw(
 	Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ
diff --git a/keyboard.eng.inc.pl b/keyboard.eng.inc.pl
index 378acdc..4b72d08 100644
--- a/keyboard.eng.inc.pl
+++ b/keyboard.eng.inc.pl
@@ -1,6 +1,9 @@
+use strict;
+use warnings;
 use Unicode::Normalize qw( NFKD );
 use Text::Unidecode qw( unidecode );
 
+our %rows;
 my %g; # present group classes
 {
 	rows => [0, 1],
diff --git a/keyboard.plp b/keyboard.plp
index c96977d..a7bdc91 100644
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -4,6 +4,7 @@ my $mode = lc($Request || 'altgr');
 my $include = "$mode.eng";
 
 my $info = eval { Data($include) } || {};
+warn "error in $include: ", @{$@} if ref $@;
 $mode = $info->{title} // $mode;
 
 Html({