}
my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
$p = $p ? 'patchlevel ' . $p : 'no patchlevel';
diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );
}
my $p = Variable::Magic::VMG_PERL_PATCHLEVEL;
$p = $p ? 'patchlevel ' . $p : 'no patchlevel';
diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );