preload threads.pm in storage/txn.t for fork error

[dbsrgits/DBIx-Class.git] / t / storage / txn.t

diff --git a/t/storage/txn.t b/t/storage/txn.t
index 09260f0..41df4d5 100644 (file)
--- a/t/storage/txn.t
+++ b/t/storage/txn.t
@@ -1,6 +1,10 @@
 use strict;
 use warnings;
 
+BEGIN {
+  require threads if $^O eq 'MSWin32'; # preload due to fork errors
+}
+
 use Test::More;
 use Test::Warn;
 use Test::Exception;