skip 51threadnodb.t on Win32 on < 5.14

[dbsrgits/DBIx-Class.git] / t / 51threadnodb.t

diff --git a/t/51threadnodb.t b/t/51threadnodb.t
index 52cdcd8..ea35202 100644 (file)
--- a/t/51threadnodb.t
+++ b/t/51threadnodb.t
@@ -14,6 +14,9 @@ use Test::More;
 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;