diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t')
-rwxr-xr-x | gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t b/gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t index 6e42fb779f7..b9e51f821d9 100755 --- a/gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t +++ b/gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t @@ -1,18 +1,18 @@ -use strict;
-use Test;
-use Win32;
-
-unless (defined &Win32::BuildNumber) {
- print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n";
- exit;
-}
-
-plan tests => 2;
-
-my @version = Win32::GetFileVersion($^X);
-my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000;
-
-# numify $] because it is a version object in 5.10 which will stringify with trailing 0s
-ok($version, 0+$]);
-
-ok($version[3], int(Win32::BuildNumber()));
+use strict; +use Test; +use Win32; + +unless (defined &Win32::BuildNumber) { + print "1..0 # Skip: Only ActivePerl seems to set the perl.exe fileversion\n"; + exit; +} + +plan tests => 2; + +my @version = Win32::GetFileVersion($^X); +my $version = $version[0] + $version[1] / 1000 + $version[2] / 1000000; + +# numify $] because it is a version object in 5.10 which will stringify with trailing 0s +ok($version, 0+$]); + +ok($version[3], int(Win32::BuildNumber())); |