Importing Variable-Magic-0.13.tar.gz

[perl/modules/Variable-Magic.git] / t / 00-load.t

diff --git a/t/00-load.t b/t/00-load.t
index e70be36b536c8749ab47b9b406630a64c09e921e..0abe93caae9d731dedce1877206addace7c643d1 100644 (file)
--- a/t/00-load.t
+++ b/t/00-load.t
@@ -3,10 +3,14 @@
 use strict;
 use warnings;
 
+use Config;
+
 use Test::More tests => 1;
 
 BEGIN {
        use_ok( 'Variable::Magic' );
 }
 
-diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $], $^X" );
+my $p = $Config::Config{perl_patchlevel};
+$p = $p ? 'patchlevel ' . int $p : 'no patchlevel';
+diag( "Testing Variable::Magic $Variable::Magic::VERSION, Perl $] ($p), $^X" );