X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51threadnodb.t;h=95c9aafa255933d88824bac63366e56bb85652a1;hb=cf1d16d808be1dc3d7270f9f6072b832d0dbb327;hp=ea352028fae508e31bdd2e5000cf072a6eb63b6f;hpb=50e6c52e05fbcc9ff63926c8c85cc2ec92ae8531;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/51threadnodb.t b/t/51threadnodb.t
index ea35202..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;
 
@@ -11,14 +16,14 @@ use strict;
 use warnings;
 use Test::More;
 
+use lib qw(t/lib);
+use DBICTest;
+
 plan skip_all => 'DBIC does not actively support threads before perl 5.8.5'
   if $] < '5.008005';
 
-plan skip_all => 'test dangerous on Win32 for < 5.14 set TEST_AUTHOR to run'
-  if $^O eq 'MSWin32' && $] < 5.014 && !$ENV{TEST_AUTHOR};
-
-use lib qw(t/lib);
-use DBICTest;
+plan skip_all => 'Potential problems on Win32 Perl < 5.14 and Variable::Magic - investigation pending'
+  if $^O eq 'MSWin32' && $] < 5.014 && DBICTest::RunMode->is_plain;
 
 # README: If you set the env var to a number greater than 10,
 #   we will use that many children