projects
/
perl
/
modules
/
Variable-Magic.git
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
| inline |
side by side
(parent:
aec8d8c
)
Use the new VMG_PERL_PATCHLEVEL constant to print the patchlevel in t/00-load.t
author
Vincent Pit <vince@profvince.com>
Sat, 5 Jul 2008 13:31:05 +0000 (15:31 +0200)
committer
Vincent Pit <vince@profvince.com>
Sat, 5 Jul 2008 13:31:05 +0000 (15:31 +0200)
t/00-load.t
patch
|
blob
|
history
diff --git
a/t/00-load.t
b/t/00-load.t
index 0abe93caae9d731dedce1877206addace7c643d1..c64b78fa2c9856308933abf6e055ca3cb7663703 100644
(file)
--- 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" );