From: Vincent Pit Date: Sat, 24 Aug 2013 18:23:43 +0000 (-0300) Subject: Make Perl version numbers more readable X-Git-Tag: rt88428~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=76861cbb848c770203b09f413c9c65ca58c808c8;p=perl%2Fmodules%2Findirect.git Make Perl version numbers more readable --- diff --git a/Makefile.PL b/Makefile.PL index b804661..f0c9891 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,4 +1,4 @@ -use 5.008001; +use 5.008_001; use strict; use warnings; diff --git a/lib/indirect.pm b/lib/indirect.pm index 27747bf..8cbb750 100644 --- a/lib/indirect.pm +++ b/lib/indirect.pm @@ -1,6 +1,6 @@ package indirect; -use 5.008001; +use 5.008_001; use strict; use warnings; @@ -260,7 +260,7 @@ L 5.8.1. 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 (standard since perl 5), L (since perl 5.006). +L (standard since perl 5), L (since perl 5.6.0). =head1 AUTHOR diff --git a/t/30-scope.t b/t/30-scope.t index a69b979..a62e55e 100644 --- a/t/30-scope.t +++ b/t/30-scope.t @@ -75,7 +75,7 @@ sub expect { } } is $@, '', "no indirect; eval 'my \$x = new Bar'"; - if ("$]" < 5.009005) { + if ("$]" < 5.009_005) { is @w, 0, 'no warnings caught'; pass 'placeholder'; } else { @@ -87,7 +87,7 @@ sub expect { SKIP: { skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 2 - if "$]" < 5.009005; + if "$]" < 5.009_005; my @w; my $test = sub { eval 'return; new XYZ' }; { @@ -118,13 +118,13 @@ SKIP: { eval "return; no indirect; use indirect::TestRequired2; my \$x = new Bar;"; } is $@, '', 'second require test doesn\'t croak prematurely'; - @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; my $w = shift @w; like $w, expect('Baz', 't/lib/indirect/TestRequired2.pm'), 'second require test caught error for Baz'; SKIP: { skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 1 - if "$]" < 5.009005; + if "$]" < 5.009_005; $w = shift @w; like $w, expect('Blech'), 'second require test caught error for Blech'; } @@ -148,7 +148,7 @@ SKIP: { new indirect::TestRequired3Z; } 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 $@, '', "pragma leak when reusing callback test doesn't croak prematurely"; is_deeply \@w, [ ], diff --git a/t/41-threads-teardown.t b/t/41-threads-teardown.t index 9de009f..64c23dc 100644 --- a/t/41-threads-teardown.t +++ b/t/41-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'; my ($code, @expected); diff --git a/t/lib/indirect/TestThreads.pm b/t/lib/indirect/TestThreads.pm index da805c0..1b6c6da 100644 --- a/t/lib/indirect/TestThreads.pm +++ b/t/lib/indirect/TestThreads.pm @@ -18,7 +18,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', [ ]);