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