X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/c98bda172fec13970df56f9bec501b420c3b51f5..HEAD:/tools/mkttfinfo diff --git a/tools/mkttfinfo b/tools/mkttfinfo index 8cfe446..b14539a 100755 --- a/tools/mkttfinfo +++ b/tools/mkttfinfo @@ -7,7 +7,7 @@ use Font::TTF::Font; use Getopt::Long; use Cwd 'abs_path'; -our $VERSION = '1.01'; +our $VERSION = '1.02'; GetOptions(\my %opt, 'verbose|v!', @@ -72,13 +72,13 @@ for ($outfile || ()) { undef ) for $meta{os} || (); - say "# automatically generated by $0"; - say '+', pp(\%meta), ','; - my $support = $ttf->{cmap}->find_ms->{val}; warn scalar keys %$support, " characters read from $ttfuri\n" if $opt{verbose}; - say pp(sort { $a <=> $b } keys %$support); + $meta{cover} = [sort { $a <=> $b } keys %$support]; + + say "# automatically generated by $0"; + say '+', pp(\%meta); } __END__