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())); |