diff options
Diffstat (limited to 'cpan/Win32/t/GetFileVersion.t')
-rw-r--r-- | cpan/Win32/t/GetFileVersion.t | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/cpan/Win32/t/GetFileVersion.t b/cpan/Win32/t/GetFileVersion.t index b9e51f821d..6e42fb779f 100644 --- a/cpan/Win32/t/GetFileVersion.t +++ b/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()));
|