Institute a central "load this first in testing" package

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

diff --git a/t/51threadtxn.t b/t/51threadtxn.t
index e74c7c1..3e285ca 100644 (file)
--- a/t/51threadtxn.t
+++ b/t/51threadtxn.t
@@ -1,3 +1,5 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 # README: If you set the env var to a number greater than 10,
 #   we will use that many children
 
@@ -26,7 +28,7 @@ plan skip_all => 'DBIC does not actively support threads before perl 5.8.5'
   if "$]" < 5.008005;
 
 use Scalar::Util 'weaken';
-use lib qw(t/lib);
+
 use DBICTest;
 
 my $num_children = $ENV{DBICTEST_THREAD_STRESS} || 1;