From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 18 Jun 2012 15:49:37 +0000 (-0400)
Subject: preload threads.pm in storage/txn.t for fork error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bab2062c234a0ebab1c177220ef1d13b281d5b2;p=dbsrgits%2FDBIx-Class-Historic.git

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
--- 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;