blob: b9e51f821d90273d0108847c5e81e4210ed2b5e6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use Test;
use Win32;
unless (defined &Win32::BuildNumber) {
print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n";
exit;
}
plan tests => 2;
my @version = Win32::GetFileVersion($^X);
my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000;
# numify $] because it is a version object in 5.10 which will stringify with trailing 0s
ok($version, 0+$]);
ok($version[3], int(Win32::BuildNumber()));
|
