X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F51threadtxn.t;h=3e285cacec4ed31aacdad175aeceb06007660aee;hb=bd52af73fba43175e16439d2a241dbf9d468cd5f;hp=e74c7c175fad9cdfb0cc1d57e90eb3b27cbbd12a;hpb=750a4ad26c8fbe0f513a3abd4a9cb79ef8f40884;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/51threadtxn.t b/t/51threadtxn.t
index e74c7c1..3e285ca 100644
--- 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;