Fix building on perls with no . in @INC

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

diff --git a/t/storage/ping_count.t b/t/storage/ping_count.t
index 07659cb..4d472e7 100644 (file)
--- a/t/storage/ping_count.t
+++ b/t/storage/ping_count.t
@@ -1,11 +1,11 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
-use warnings;  
+use warnings;
 
 use Test::More;
-use lib qw(t/lib);
+
 use DBICTest;
-use Data::Dumper;
-use DBIC::SqlMakerTest;
 
 my $ping_count = 0;