use Data::Dump 'pp';
use Font::TTF::Font;
use Getopt::Long;
+use Cwd 'abs_path';
our $VERSION = '1.00';
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,