X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F00-load.t;h=3c62ab3e41af98b4ed7b72ba267c57547ac29285;hb=3b231081a802e6605c1807651123bccb4c573cdf;hp=0abe93caae9d731dedce1877206addace7c643d1;hpb=a86e3e47a167afadf7de1231d6401a1139330ad0;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/00-load.t b/t/00-load.t
index 0abe93c..3c62ab3 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -3,14 +3,16 @@
 use strict;
 use warnings;
 
-use Config;
-
 use Test::More tests => 1;
 
 BEGIN {
-	use_ok( 'Variable::Magic' );
+ use_ok( 'Variable::Magic' );
 }
 
-my $p = $Config::Config{perl_patchlevel};
-$p = $p ? 'patchlevel ' . int $p : 'no patchlevel';
+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();
+}