diff options
| -rw-r--r-- | solenv/bin/modules/installer/windows/file.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/solenv/bin/modules/installer/windows/file.pm b/solenv/bin/modules/installer/windows/file.pm index 1a12becb6076..76217f859b45 100644 --- a/solenv/bin/modules/installer/windows/file.pm +++ b/solenv/bin/modules/installer/windows/file.pm @@ -560,12 +560,19 @@ sub get_fileversion close TTF; my $ttfversion = "(Version )([0-9]+[.]*([0-9][.])*[0-9]+)"; + # UTF16-encoded version string + my $ttfversionU = "(V\0e\0r\0s\0i\0o\0n\0 \0)(([0-9]\0)+([.]\0([0-9]\0)+)*)"; if ($ttfdata =~ /$ttfversion/ms) { my ($version, $subversion, $microversion, $vervariant) = split(/\./,$2); $fileversion = int($version) . "." . int($subversion) . "." . int($microversion) . "." . int($vervariant); } + elsif ($ttfdata =~ /$ttfversionU/ms) + { + my ($version, $subversion, $microversion, $vervariant) = split(/\./,$2 =~ s/\0//gr); + $fileversion = int($version) . "." . int($subversion) . "." . int($microversion) . "." . int($vervariant); + } else { $fileversion = "1.0.0.0"; |