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

SineSwiper reported this error in t/storage/txn.t on Strawberry Perl
5.12 32bit:

You must load the 'threads' module before Moo::_Utils at t/storage/txn.t
line 130.

Preload threads in a BEGIN block at the beginning of the .t file for
Win32. This fixes the error.

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;