diff options
Diffstat (limited to 'lib/Tools.pm')
| -rw-r--r-- | lib/Tools.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Tools.pm b/lib/Tools.pm index 10b715a..77aa655 100644 --- a/lib/Tools.pm +++ b/lib/Tools.pm @@ -854,18 +854,16 @@ sub findttf } find({ wanted => sub{ if($File::Find::name =~ /\.ttf$/sig) { - my $f = basename($File::Find::name); + my $f = $_; # keep name of file without path my $fontname = $f; if($font) { - $fontname = Font::TTF::Font->open($f) || $f; + $fontname = Font::TTF::Font->open($File::Find::name) || $f; $fontname = $fontname->{name} || $f if ref $fontname; $fontname = $fontname->read->find_name(4) || $f if ref $fontname; } push(@{$found},[$fontname,$f]); } - }, - follow => 1, - follow_skip => 2, + } }, $directory ); |
