git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
290c85c
)
font: mkttfinfo: strip file extensions from name
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 16 Mar 2015 18:32:58 +0000
(19:32 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 9 Jun 2015 03:43:44 +0000
(
05:43
+0200)
tools/mkttfinfo
patch
|
blob
|
history
diff --git
a/tools/mkttfinfo
b/tools/mkttfinfo
index 9679f1c70f906b0f774356a30c3d845a40b348e3..988fcdccdf51adfd8aa33e3daf77eed864985299 100755
(executable)
--- a/
tools/mkttfinfo
+++ b/
tools/mkttfinfo
@@
-42,7
+42,7
@@
for ($outfile || ()) {
exit 65; # EX_DATAERR
};
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,
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};
say '+', pp(\%meta), ',';
my $support = $ttf->{cmap}->find_ms->{val};
- warn scalar keys %$support, " characters read from $ttf
name
\n"
+ warn scalar keys %$support, " characters read from $ttf
uri
\n"
if $opt{verbose};
say pp(sort { $a <=> $b } keys %$support);
}
if $opt{verbose};
say pp(sort { $a <=> $b } keys %$support);
}