X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F80-threads.t;h=639c118972bee1771d47dc8aea8604c383b9ea63;hb=d3e5f75f3c4d82429e8ef9dccf275e4e8e6d4260;hp=a04d1b9ff4935bc897b22a589b923d47b98dec3d;hpb=95d98c140e711be6185a7ff61ac78668ebc91155;p=perl%2Fmodules%2FTest-Leaner.git diff --git a/t/80-threads.t b/t/80-threads.t index a04d1b9..639c118 100644 --- a/t/80-threads.t +++ b/t/80-threads.t @@ -3,6 +3,8 @@ use strict; use warnings; +BEGIN { delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE} } + sub skipall { my ($msg) = @_; require Test::Leaner; @@ -17,7 +19,7 @@ BEGIN { 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.013004; skipall "threads $t_v required to test thread safety" unless eval "use threads $t_v; 1"; }