mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tdf#76239 extract real file version from ttf files

Browse Source 
Change-Id: I9f611a272e6694fe1f9bd5f75358e865eaf3fe5f
Reviewed-on: https://gerrit.libreoffice.org/19941
Reviewed-by: Andras Timar <andras.timar@collabora.com>
Tested-by: Andras Timar <andras.timar@collabora.com>
This commit is contained in:
Andras Timar
2015-11-12 21:57:37 +01:00
parent da1f782cb2
commit 38e24f1d05
1 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
solenv/bin/modules/installer/windows/file.pm
View File

@@ -551,10 +551,25 @@ sub get_fileversion
$fileversion = $version . "." . $subversion . "." . $microversion . "." . $vervariant;
}
}
# fake file version for font files (tdf#76239)
# file version for font files (tdf#76239)
if ( $onefile->{'Name'} =~ /\.ttf$|\.TTF$/ )
{
$fileversion = "1.0.0.0";
open (TTF, "<$onefile->{'sourcepath'}");
binmode TTF;
{local $/ = undef; $ttfdata = <TTF>;}
close TTF;
my $ttfversion = "(Version )([0-9]+[.]*([0-9][.])*[0-9]+)";
if ($ttfdata =~ /$ttfversion/ms)
{
my ($version, $subversion, $microversion, $vervariant) = split(/\./,$2);
$fileversion = int($version) . "." . int($subversion) . "." . int($microversion) . "." . int($vervariant);
}
else
{
$fileversion = "1.0.0.0";
}
}
return $fileversion;