From: Vincent Pit <vince@profvince.com>
Date: Sat, 5 Jul 2008 13:31:05 +0000 (+0200)
Subject: Use the new VMG_PERL_PATCHLEVEL constant to print the patchlevel in t/00-load.t
X-Git-Tag: v0.19~2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=371c59db44b6f3466b5a79d7dbe03458779735b1;p=perl%2Fmodules%2FVariable-Magic.git

Use the new VMG_PERL_PATCHLEVEL constant to print the patchlevel in t/00-load.t
---

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