font: fix mkttfinfo --verbose option

[sheet.git] / tools / mkttfinfo

diff --git a/tools/mkttfinfo b/tools/mkttfinfo
index c80f5fceb378ab9a75550c422a36b2ab3afbc4de..9102726bda29bb93d28bbc4170b9dc12dcd15701 100755 (executable)
--- a/tools/mkttfinfo
+++ b/tools/mkttfinfo
@@ -9,14 +9,14 @@ use Getopt::Long;
 
 our $VERSION = '1.00';
 
-GetOptions(my %opt,
+GetOptions(\my %opt,
        'verbose|v!',
 );
 
 my ($ttfuri, $outfile) = @ARGV;
 $ttfuri or die "usage error\n";
 
-my $fontinc = $ENV{FONTINC} // '~/.fonts,/usr/share/fonts/truetype/*';
+my $fontinc = $ENV{FONTINC} // 'data/font,~/.fonts,/usr/share/fonts/truetype/*';
 if (!-e $ttfuri) {
        my $found = (grep {-e} glob "{$fontinc}/$ttfuri")[0] or do {
                warn "font not found: $ttfuri\n";