diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-04 10:35:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-04 10:35:59 +0000 |
| commit | 95015c6ec741dc7f61e7b9c294102b0f8e739263 (patch) | |
| tree | 9be95c8007f27109ff8c6e230d6fa519c0826dc4 /t/win32 | |
| parent | 2c9359a248d51da75ec39822c411d2e97fe5c631 (diff) | |
| download | perl-95015c6ec741dc7f61e7b9c294102b0f8e739263.tar.gz | |
Fix [perl #27357] Scalar Win32::GetOSVersion() broken in 5.8.3
(by Steve Hay)
p4raw-id: //depot/perl@22431
Diffstat (limited to 't/win32')
| -rw-r--r-- | t/win32/getosversion.t | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/win32/getosversion.t b/t/win32/getosversion.t new file mode 100644 index 0000000000..2a708cb80a --- /dev/null +++ b/t/win32/getosversion.t @@ -0,0 +1,13 @@ +#!perl -w + +# tests for Win32::GetOSVersion() + +$^O =~ /^MSWin/ or print("1..0 # not win32\n" ), exit; + +print "1..1\n"; + +my $scalar = Win32::GetOSVersion(); +my @array = Win32::GetOSVersion(); + +print "not " unless $scalar == $array[4]; +print "ok 1\n"; |