From: Vincent Pit <vince@profvince.com>
Date: Tue, 20 Jan 2009 19:59:58 +0000 (+0100)
Subject: Output the build number for Win32 AS perls at the beginning of the tests
X-Git-Tag: v0.28~18
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=54a1b1e4382ad55a54cbd874d6ffd87bf58dffbc;p=perl%2Fmodules%2FVariable-Magic.git

Output the build number for Win32 AS perls at the beginning of the tests
---

diff --git a/t/00-load.t b/t/00-load.t
index c64b78f..d130892 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -12,3 +12,8 @@ BEGIN {
 my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
 $p = $p ? 'patchlevel ' . $p : 'no patchlevel';
 diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );
+
+if ($^O eq 'MSWin32' && eval { require Win32; 1 }
+                     && defined &Win32::BuildNumber) {
+ diag "This is ActiveState Perl $] build " . Win32::BuildNumber();
+}