Cleaner version numbers

diff --git a/Makefile.PL b/Makefile.PL
index fe93d2121134d38e577b613faded2e543190ed12..1ad0ceacc6503785983db3374bee99f590749843 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -20,7 +20,7 @@ my $as_perl = eval {
 
 my $is_as_822 = 0;
 print "Checking if this is ActiveState Perl 5.8.8 build 822 or higher... ";
-if ("$]" == 5.008008 and defined $as_perl and $as_perl >= 822) {
+if ("$]" == 5.008_008 and defined $as_perl and $as_perl >= 822) {
  $is_as_822 = 1;
  push @DEFINES, '-DVMG_COMPAT_ARRAY_PUSH_NOLEN=1';
 }
@@ -52,7 +52,7 @@ if ($^O eq 'MSWin32' && "$]" < 5.009) {
 }
 
 # Fork emulation got "fixed" in 5.10.1
-if ($^O eq 'MSWin32' && "$]" < 5.010001) {
+if ($^O eq 'MSWin32' && "$]" < 5.010_001) {
  push @DEFINES, '-DVMG_FORKSAFE=0';
  print "Fork safety not ensured for perl 5.8.x and 5.10.0 on Windows.\n";
 }
@@ -104,7 +104,7 @@ WriteMakefile(
  PL_FILES         => {},
  @DEFINES,
  PREREQ_PM        => \%PREREQ_PM,
- MIN_PERL_VERSION => 5.008,
+ MIN_PERL_VERSION => '5.008',
  META_MERGE       => \%META,
  dist             => {
   PREOP    => "pod2text -u $file > \$(DISTVNAME)/README",

diff --git a/t/17-ctl.t b/t/17-ctl.t
index c32d7f1556d182d274d792de8736ae884b4dcc64..ef1be224438280d5825de3fc9b8df7b002252d66 100644 (file)
--- a/t/17-ctl.t
+++ b/t/17-ctl.t
@@ -272,7 +272,7 @@ use Variable::Magic qw<wizard cast>; BEGIN { cast %::, wizard fetch => sub { die
  my $suffix = "\nExecution(?s:.*)";
  if ("$]" >= 5.017) {
   $suffix = "(?:\nsalsify at -e line \\d+.){16}" . $suffix;
- } elsif ("$]" >= 5.011005) {
+ } elsif ("$]" >= 5.011_005) {
   $suffix = "(?:\nsalsify at -e line \\d+.){12}" . $suffix;
  } elsif ("$]" >= 5.011) {
   $suffix = "(?:\nsalsify at -e line \\d+.){3}" . $suffix;

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 4da06b9c40ff93fc78d8ebd2d609ad27b100b58b..70b5f746dfd731f8e9418e1202e6f3aebff73b2d 100644 (file)
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -13,8 +13,8 @@ sub Variable::Magic::TestPkg::foo { }
 
 my $is_5130_release = ("$]" == 5.013 && !$Config{git_describe}) ? 1 : 0;
 
-my $aelem     = "$]" <= 5.008003 ? 'aelem'
-                                 : ("$]" < 5.013 or $is_5130_release)
+my $aelem     = "$]" <= 5.008_003 ? 'aelem'
+                                  : ("$]" < 5.013 or $is_5130_release)
                                                    ? 'aelemfast'
                                                    : 'sassign';
 my $aelemf    = ("$]" < 5.013 or $is_5130_release) ? 'aelemfast' : 'sassign';

diff --git a/t/30-scalar.t b/t/30-scalar.t
index bc9004f0fc6628a20a6727193c58b149e501d34c..4189ee5dfab5491f4653232442c1f7eccf7ef6e2 100644 (file)
--- a/t/30-scalar.t
+++ b/t/30-scalar.t
@@ -72,7 +72,7 @@ $b = watch { exists $a[1] } { }, 'array element: exists';
 is $b, 1, 'scalar: array element: exists correctly';
 
 # $b has to be set inside the block for the test to pass on 5.8.3 and lower
-watch { $b = delete $a[1] } { get => 1, free => ("$]" > 5.008005 ? 1 : 0) },
+watch { $b = delete $a[1] } { get => 1, free => ("$]" > 5.008_005 ? 1 : 0) },
                             'array element: delete';
 is $b, 6, 'scalar: array element: delete correctly';
 

diff --git a/t/34-glob.t b/t/34-glob.t
index 90821c5bf31498cef6049ef0486d85a6079b6fd7..1fe3df7b2cbc2b6030fcbecf19bec05c7af7a862 100644 (file)
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -63,7 +63,7 @@ watch {
  watch { cast *b, $wiz } +{ }, 'cast 2';
 } +{ }, 'scope end';
 
-%get = () if "$]" >= 5.013007;
+%get = () if "$]" >= 5.013_007;
 
 watch { undef *a } +{ %get }, 'undef';
 

diff --git a/t/35-stash.t b/t/35-stash.t
index ac004677e69bfa1836087af2476e8b3bd5e0a858..24034832064399cb33c740a61f691dac3f4e061f 100644 (file)
--- a/t/35-stash.t
+++ b/t/35-stash.t
@@ -96,7 +96,7 @@ cast %Hlagh::, $wiz;
  is $@, "ok\n", 'stash: function calls compiled fine';
  is_deeply \%mg, {
   fetch => \@calls,
-  store => ("$]" < 5.011002 ? \@calls : [ map { ($_) x 2 } @calls ]),
+  store => ("$]" < 5.011_002 ? \@calls : [ map { ($_) x 2 } @calls ]),
  }, 'stash: function calls';
 }
 
@@ -295,7 +295,7 @@ $_ => sub {
 CB
 } qw<fetch store exists delete>);
 
-my $uo_exp = "$]" < 5.011002 ? 2 : 3;
+my $uo_exp = "$]" < 5.011_002 ? 2 : 3;
 
 $code .= ', data => sub { +{ guard => 0 } }';
 

diff --git a/t/lib/Variable/Magic/TestThreads.pm b/t/lib/Variable/Magic/TestThreads.pm
index 4a18667a0487715712d0fe175cb25f8c6bb659b5..f3ebc5d0960f33062af66395fec7c143e9fe0a88 100644 (file)
--- a/t/lib/Variable/Magic/TestThreads.pm
+++ b/t/lib/Variable/Magic/TestThreads.pm
@@ -27,7 +27,7 @@ sub import {
  skipall 'This perl wasn\'t built to support threads'
                                                     unless $Config{useithreads};
  skipall 'perl 5.13.4 required to test thread safety'
-                                              unless $force or "$]" >= 5.013004;
+                                             unless $force or "$]" >= 5.013_004;
 
  my $t_v = $force ? '0' : '1.67';
  my $has_threads =  do {