X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51threadnodb.t;h=9b69fa134e0b8dbb7248a8939a806ca1e40b3b0c;hb=992a24f640638601acb795c24af493d789368400;hp=52cdcd8b52147fdce6ed9ede28b370fc8a03fd8c;hpb=2d12a809476ffe97dfa2b5e66d4ccdf13b24fc5e;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/51threadnodb.t b/t/51threadnodb.t
index 52cdcd8..9b69fa1 100644
--- a/t/51threadnodb.t
+++ b/t/51threadnodb.t
@@ -11,11 +11,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';
 
-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