blob: 0038ef70e6984bf7bc1f6da631cce2a7a5afb95a (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
use strict;
use Test;
use Win32;
plan tests => 1;
my $scalar = Win32::GetOSVersion();
my @array = Win32::GetOSVersion();
print "not " unless $scalar == $array[4];
print "ok 1\n";
|