From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 25 Jan 2014 09:23:06 +0000 (+0100)
Subject: Skip thread tests under Devel::Cover
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f15baf68c83f99fd34d7ac6ba9c54fcdcdc7a7e8;p=dbsrgits%2FDBIx-Class-Historic.git

Skip thread tests under Devel::Cover
---

diff --git a/t/51threadnodb.t b/t/51threadnodb.t
index 9b69fa1..95c9aaf 100644
--- a/t/51threadnodb.t
+++ b/t/51threadnodb.t
@@ -4,6 +4,11 @@ BEGIN {
     print "1..0 # SKIP your perl does not support ithreads\n";
     exit 0;
   }
+
+  if ($INC{'Devel/Cover.pm'}) {
+    print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
+    exit 0;
+  }
 }
 use threads;
 
diff --git a/t/51threads.t b/t/51threads.t
index 6dc0d11..382458d 100644
--- a/t/51threads.t
+++ b/t/51threads.t
@@ -4,6 +4,11 @@ BEGIN {
     print "1..0 # SKIP your perl does not support ithreads\n";
     exit 0;
   }
+
+  if ($INC{'Devel/Cover.pm'}) {
+    print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
+    exit 0;
+  }
 }
 use threads;
 
diff --git a/t/51threadtxn.t b/t/51threadtxn.t
index 4ab96fb..a0e07bd 100644
--- a/t/51threadtxn.t
+++ b/t/51threadtxn.t
@@ -7,6 +7,11 @@ BEGIN {
     print "1..0 # SKIP your perl does not support ithreads\n";
     exit 0;
   }
+
+  if ($INC{'Devel/Cover.pm'}) {
+    print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
+    exit 0;
+  }
 }
 use threads;