Commit | Line | Data |
---|---|---|
83a611dd | 1 | use strict; |
2 | use Test; | |
3 | use Win32; | |
4 | ||
5 | unless (defined &Win32::BuildNumber) { | |
6 | print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n"; | |
7 | exit; | |
8 | } | |
9 | ||
10 | plan tests => 2; | |
11 | ||
12 | my @version = Win32::GetFileVersion($^X); | |
13 | my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000; | |
14 | ||
15 | ok($version, $]); | |
34f7f30d | 16 | ok($version[3], int(Win32::BuildNumber())); |