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