keyboard: fix empty key titles

[sheet.git] / tools / mkcharinfo

diff --git a/tools/mkcharinfo b/tools/mkcharinfo
index 6f58efff660394b6e375f6a42ab1ccf14557574d..64738ae80acc41c11b135b412ff0afdd940f377e 100755 (executable)
--- a/tools/mkcharinfo
+++ b/tools/mkcharinfo
@@ -1,6 +1,5 @@
 #!/usr/bin/env perl
-use 5.010;
-use strict;
+use 5.014;
 use warnings;
 use utf8;
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
@@ -65,7 +64,7 @@ for (sort keys %diinc) {
 
 eval {
        # read introducing unicode versions for known characters
-       my $agemap = do 'unicode-age.inc.pl' or die $@ || $!;
+       my $agemap = do 'data/unicode-age.inc.pl' or die $@ || $!;
        for my $chr (keys %info) {
                my $version = $agemap->{ord $chr} or next;
                $info{$chr}->{class}->{'u-v'.$version}++