Make Perl version numbers more readable

diff --git a/Makefile.PL b/Makefile.PL
index 340230745f91655f3481f38fcfc80d0ac1723fcc..5f3b5231ce2a132b3d91b6ab0c253c1aa7837697 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,4 +1,4 @@
-use 5.008003;
+use 5.008_003;
 
 use strict;
 use warnings;
@@ -34,7 +34,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, '-DLT_FORKSAFE=0';
 }
 

diff --git a/lib/Lexical/Types.pm b/lib/Lexical/Types.pm
index a3b285af561977209e7b55048f89c2f578e81476..88b00afdf6073d65b746e67d7a9af0a0fc5b8f05 100644 (file)
--- a/lib/Lexical/Types.pm
+++ b/lib/Lexical/Types.pm
@@ -1,6 +1,6 @@
 package Lexical::Types;
 
-use 5.008003;
+use 5.008_003;
 
 use strict;
 use warnings;
@@ -281,7 +281,7 @@ L<perl> 5.8.3.
 A C compiler.
 This module may happen to build with a C++ compiler as well, but don't rely on it, as no guarantee is made in this regard.
 
-L<XSLoader> (standard since perl 5.006).
+L<XSLoader> (standard since perl 5.6.0).
 
 =head1 SEE ALSO
 

diff --git a/t/11-args.t b/t/11-args.t
index a1018905af479f52071db03dff4b5c8e74eb4bdd..a049ea765b1b01eb1ff4e53df1f7c090474e3634 100644 (file)
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -96,7 +96,7 @@ use Test::More tests => 14 + 6;
 
 {
  my $expect = qr/^Lexical::Types mangler should return zero, one or two scalars, but got 3/;
- diag 'This will throw two warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
  local $@;
  eval q[
   use Lexical::Types as => sub { qw<a b c> };
@@ -117,7 +117,7 @@ use Test::More tests => 14 + 6;
 
 {
  my $expect = qr/^banana at \(eval \d+\) line 2/;
- diag 'This will throw two more warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two more warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
  local $@;
  eval q[
   use Lexical::Types as => sub { die 'banana' };

diff --git a/t/13-padsv.t b/t/13-padsv.t
index ab042aee6968be0964360d462b7c5687b6f58d70..139b72d3463c5b34a8aa5833020e6cac215cada4 100644 (file)
--- a/t/13-padsv.t
+++ b/t/13-padsv.t
@@ -34,7 +34,7 @@ sub Int::TYPEDSCALAR { push @lines, (caller(0))[2]; () }
 
 SKIP: {
  skip 'Broken with threaded perls before 5.8.4' => 1
-                                    if $Config{useithreads} and "$]" < 5.008004;
+                                   if $Config{useithreads} and "$]" < 5.008_004;
 
  use Lexical::Types as => sub {
   # In 5.10, this closure is compiled before hints are enabled, so no hintseval

diff --git a/t/14-ro.t b/t/14-ro.t
index bae8ccf079920b9774c1c57edbf491ac3c002061..1c4a7e07814e8d42b6972b98e24622918efa47be 100644 (file)
--- a/t/14-ro.t
+++ b/t/14-ro.t
@@ -24,7 +24,7 @@ sub ro_re {
 }
 
 sub maybe_warn {
- diag 'This will throw two warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
 }
 
 {
@@ -38,7 +38,7 @@ sub maybe_warn {
 }
 
 SKIP: {
- skip 'Kinda broken on old 5.8.x' => 1 if "$]" <= 5.008006;
+ skip 'Kinda broken on old 5.8.x' => 1 if "$]" <= 5.008_006;
  maybe_warn();
  local $@;
  eval q!

diff --git a/t/16-scope.t b/t/16-scope.t
index 9e858dcfee4500d8e8b5f25d0047d913640b7b40..e62ceb0e53f6101d8ce1d4c5a4fc6c05771c80b3 100644 (file)
--- a/t/16-scope.t
+++ b/t/16-scope.t
@@ -39,7 +39,7 @@ use lib 't/lib';
    ::is($z, __FILE__.':6', 'pragma in use at the end');
   }
  TESTREQUIRED3
- @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008003;
+ @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008_003;
  is         $@,     '',  'third require test didn\'t croak prematurely';
  is_deeply \@w,     [ ], 'third require test didn\'t warn';
  is_deeply \@decls, [ map "Int3$_", qw<X Z> ],

diff --git a/t/31-threads-teardown.t b/t/31-threads-teardown.t
index e636acde54985c275144c8563de2278ff29e6c98..bc3dff9c5e2d8952235cc4c26295b22e790aa7dd 100644 (file)
--- a/t/31-threads-teardown.t
+++ b/t/31-threads-teardown.t
@@ -21,7 +21,7 @@ sub run_perl {
 
 SKIP:
 {
- skip 'Fails on 5.8.2 and lower' => 1 if "$]" <= 5.008002;
+ skip 'Fails on 5.8.2 and lower' => 1 if "$]" <= 5.008_002;
 
  my $status = run_perl <<' RUN';
   { package IntX; package IntY; package IntZ; }

diff --git a/t/lib/Lexical/Types/TestRequired2.pm b/t/lib/Lexical/Types/TestRequired2.pm
index 52370715b776f58ee07d94e05e13c609ea4be70b..f0fa63374a5d4f8ad80540adbbd29fec641dacea 100644 (file)
--- a/t/lib/Lexical/Types/TestRequired2.pm
+++ b/t/lib/Lexical/Types/TestRequired2.pm
@@ -15,7 +15,7 @@ Test::More::is($x, 't/lib/Lexical/Types/TestRequired2.pm:' . (__LINE__-1), 'prag
 eval q!
  my Int $y;
  my $desc = 'pragma in use in eval in require';
- if ("$]" <  5.009005) {
+ if ("$]" <  5.009_005) {
   Test::More::is($y, undef, $desc);
  } else {
   Test::More::like($y, qr/^\(eval +\d+\):2$/, $desc);

diff --git a/t/lib/Lexical/Types/TestThreads.pm b/t/lib/Lexical/Types/TestThreads.pm
index d8928b11049e0050c1e26910f892e208265f0ae1..13a72d282246aa003cc395c81a441631d388d788 100644 (file)
--- a/t/lib/Lexical/Types/TestThreads.pm
+++ b/t/lib/Lexical/Types/TestThreads.pm
@@ -19,7 +19,7 @@ sub import {
  skip_all 'This perl wasn\'t built to support threads'
                                                     unless $Config{useithreads};
  skip_all 'perl 5.13.4 required to test thread safety'
-                                              unless $force or "$]" >= 5.013004;
+                                             unless $force or "$]" >= 5.013_004;
 
  load_or_skip_all('threads', $force ? '0' : '1.67', [ ]);