summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t')
-rwxr-xr-xgnu/usr.bin/perl/cpan/Win32/t/GetFileVersion.t36
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()));