1#!perl -T 2 3use strict; 4use warnings; 5 6use Test::More tests => 1; 7 8BEGIN { 9 use_ok( 'Variable::Magic' ); 10} 11 12my $p = Variable::Magic::VMG_PERL_PATCHLEVEL; 13$p = $p ? 'patchlevel ' . $p : 'no patchlevel'; 14diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" ); 15 16if (eval { require ActivePerl; 1 } and defined &ActivePerl::BUILD) { 17 diag "This is ActiveState Perl $] build " . ActivePerl::BUILD(); 18} 19