From 2cc9d0ed0900758dd5c64e3f87c88f40bd8897f6 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Mon, 16 Mar 2015 19:32:58 +0100 Subject: [PATCH] font: mkttfinfo: strip file extensions from name --- tools/mkttfinfo | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/mkttfinfo b/tools/mkttfinfo index 9679f1c..988fcdc 100755 --- a/tools/mkttfinfo +++ b/tools/mkttfinfo @@ -42,7 +42,7 @@ for ($outfile || ()) { exit 65; # EX_DATAERR }; - my $ttfname = ($ttfuri =~ m{([^/.]+) (?:[.]ttf)? \z}msx)[0]; + my ($ttfname, @ttfext) = split /\./, ($ttfuri =~ m{([^/]+)\z}ms)[0]; my $ttfmeta = $ttf->{name}->read; my %meta = ( source => abs_path($ttfuri) =~ m{(^/usr/.+ | [^/]+) \z}msx, @@ -66,7 +66,7 @@ for ($outfile || ()) { say '+', pp(\%meta), ','; my $support = $ttf->{cmap}->find_ms->{val}; - warn scalar keys %$support, " characters read from $ttfname\n" + warn scalar keys %$support, " characters read from $ttfuri\n" if $opt{verbose}; say pp(sort { $a <=> $b } keys %$support); } -- 2.30.0