5 unless (defined &Win32::BuildNumber) {
\r
6 print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n";
\r
12 my @version = Win32::GetFileVersion($^X);
\r
13 my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000;
\r
15 # numify $] because it is a version object in 5.10 which will stringify with trailing 0s
\r
18 ok($version[3], int(Win32::BuildNumber()));
\r