or next;
$chr =~ s/\\(.)/$1/g;
$mnem !~ m/<dead | <KP_ | <U[0-9A-Fa-f]{4}/ or next; # skip non-standard keys
- $mnem =~ s{<([^>]+)> \h?}{$symname->{$1} // die "reference to unknown keysym $1\n"}eg;
+ eval {
+ $mnem =~ s{<([^>]+)> \h?}{$symname->{$1} // die "reference to unknown keysym $1\n"}eg;
+ 1;
+ } or warn($@), next;
$mnem !~ m/[^\x20-\x7F]/ or next; # skip unicode
# (state $seen = {})->{$chr}++ and next;
printf "%s => %s,\n", pp($mnem), pp($chr);