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:
5e2f32d
)
font: mkttfinfo: resolve source symlinks in metadata
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 7 Mar 2015 22:00:08 +0000
(23:00 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 9 Jun 2015 03:43:43 +0000
(
05:43
+0200)
tools/mkttfinfo
patch
|
blob
|
history
diff --git
a/tools/mkttfinfo
b/tools/mkttfinfo
index 9102726bda29bb93d28bbc4170b9dc12dcd15701..bbafece3e8a27688f300ea03c26de357cb4bc69a 100755
(executable)
--- a/
tools/mkttfinfo
+++ b/
tools/mkttfinfo
@@
-6,6
+6,7
@@
use warnings;
use Data::Dump 'pp';
use Font::TTF::Font;
use Getopt::Long;
use Data::Dump 'pp';
use Font::TTF::Font;
use Getopt::Long;
+use Cwd 'abs_path';
our $VERSION = '1.00';
our $VERSION = '1.00';
@@
-37,7
+38,7
@@
for ($outfile || ()) {
my $ttfname = ($ttfuri =~ m{([^/.]+) (?:[.]ttf)? \z}msx)[0];
my $ttfmeta = $ttf->{name}->read;
my %meta = (
my $ttfname = ($ttfuri =~ m{([^/.]+) (?:[.]ttf)? \z}msx)[0];
my $ttfmeta = $ttf->{name}->read;
my %meta = (
- source =>
$ttfuri
=~ m{(^/usr/.+ | [^/]+) \z}msx,
+ source =>
abs_path($ttfuri)
=~ m{(^/usr/.+ | [^/]+) \z}msx,
name => $ttfmeta->find_name(4) || $ttfname,
revision => sprintf('%g', $ttf->{head}->{fontRevision}),
version => $ttfmeta->find_name(5) =~ s/\Aversion //ri =~ s/\s+\z//r,
name => $ttfmeta->find_name(4) || $ttfname,
revision => sprintf('%g', $ttf->{head}->{fontRevision}),
version => $ttfmeta->find_name(5) =~ s/\Aversion //ri =~ s/\s+\z//r,