X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/81016fe5cca26a3ff511010fa88ee9f569897a5e..8e8998a5c2e51159db372eed7e4e293df83ccc91:/tools/mkfontinfo diff --git a/tools/mkfontinfo b/tools/mkfontinfo index cdd508d..de0bbf1 100755 --- a/tools/mkfontinfo +++ b/tools/mkfontinfo @@ -1,6 +1,5 @@ #!/usr/bin/env perl -use 5.010; -use strict; +use 5.014; use warnings; use utf8; @@ -30,6 +29,8 @@ for my $fontfile (glob 'ttfsupport/*'.$incsuffix) { my %charlist; +$charlist{table}->{abc} = ['A'..'Z', 'a'..'z']; + my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!; if ($chartables) { while (my ($tablegroup, $grouprow) = each %{$chartables}) {