X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/16f38a484e8e2cfd277980d92bb063320a1e2218..6e999e79e078ca87e22b3474d532b3d570453661:/tools/mkcharinfo diff --git a/tools/mkcharinfo b/tools/mkcharinfo index 6f58eff..64738ae 100755 --- 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}++