Revert "Update Test-Simple to CPAN version 1.001009"

[perl5.git] / cpan / Test-Simple / t / Legacy / is_deeply_with_threads.t

diff --git a/cpan/Test-Simple/t/is_deeply_with_threads.t b/cpan/Test-Simple/t/Legacy/is_deeply_with_threads.t
similarity index 82%
rename from cpan/Test-Simple/t/is_deeply_with_threads.t
rename to cpan/Test-Simple/t/Legacy/is_deeply_with_threads.t
index 9908ef6..66a6641 100644 (file)
--- a/cpan/Test-Simple/t/is_deeply_with_threads.t
+++ b/cpan/Test-Simple/t/Legacy/is_deeply_with_threads.t
@@ -16,18 +16,27 @@ use strict;
 use Config;
 
 BEGIN {
-    unless ( $] >= 5.008001 && $Config{'useithreads'} && 
-             eval { require threads; 'threads'->import; 1; }) 
-    {
+    if ($] == 5.010000) {
+        print "1..0 # Threads are broken on 5.10.0\n";
+        exit 0;
+    }
+
+    my $works = 1;
+    $works &&= $] >= 5.008001;
+    $works &&= $Config{'useithreads'};
+    $works &&= eval { require threads; 'threads'->import; 1 };
+
+    unless ($works) {
         print "1..0 # Skip no working threads\n";
         exit 0;
     }
-    
+
     unless ( $ENV{AUTHOR_TESTING} ) {
         print "1..0 # Skip many perls have broken threads.  Enable with AUTHOR_TESTING.\n";
         exit 0;
     }
 }
+
 use Test::More;
 
 my $Num_Threads = 5;