X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F00-load.t;h=c64b78fa2c9856308933abf6e055ca3cb7663703;hb=4bd887f284d695d973ce89a5f40e6528561b2d6d;hp=14ed036eb1ff136cda2fcb01b9c5a92f115cd1bd;hpb=77a84f75f33e3ee44e61182dec76699e23025375;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/00-load.t b/t/00-load.t
index 14ed036..c64b78f 100644
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -1,9 +1,14 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 1;
 
 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" );