keyboard: report code errors in altgr includes

diff --git a/altgr-macos.eng.inc.pl b/altgr-macos.eng.inc.pl
index 0c1e694b4aeacdcbb2172c80c9f4baac337a3888..774734ae0d222b08b182a1dc46420bde226a3d39 100644 (file)
--- 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 d5f77494460d42daa9b65452d3a7cad88de31737..ec04b8a4abda94282f19cee4f4d99ae644a51725 100644 (file)
--- 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 e98345589677f2725ca414590c086fc7ed7b9405..9abad16413a3711cef58579a70cc64d1d4cdc087 100644 (file)
--- 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 378acdc6dee87d5420416181a5f4d45e951033e1..4b72d088a50f91b615af2bf9c03563c111b38274 100644 (file)
--- 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 c96977d7eb7dadf4df9f596dad50222322489a90..a7bdc9144d1813aa27ae06198f1a7f9f42223727 100644 (file)
--- 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({