X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F00-load.t;h=7bc69f4e6cbd9fe4b7f5eddd19c4031a3369831d;hb=bd7cdd0635d30485b50564b9eebb2d73b3c0f94b;hp=e70be36b536c8749ab47b9b406630a64c09e921e;hpb=14f66d40970bef63105be046a109c1a32859a8a0;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/00-load.t b/t/00-load.t
index e70be36..7bc69f4 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -9,4 +9,10 @@ BEGIN {
 	use_ok( 'Variable::Magic' );
 }
 
-diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $], $^X" );
+my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
+$p = $p ? 'patchlevel ' . $p : 'no patchlevel';
+diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );
+
+if (eval { require ActivePerl; 1 } and defined &ActivePerl::BUILD) {
+ diag "This is ActiveState Perl $] build " . ActivePerl::BUILD();
+}