X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest.pm;h=bccf8cf5a1eee82a9e5a818e183447879b454d19;hb=d5e5fb4b47b759b202e552ff1d2f1dd393ac7b39;hp=7ce94103b07831513b6d8f2c089f860f0de6795e;hpb=d9c17594ab3be0b866c555750cdbd1ad6a1b34e6;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm
index 7ce9410..bccf8cf 100644
--- a/t/lib/DBICTest.pm
+++ b/t/lib/DBICTest.pm
@@ -3,7 +3,7 @@ package # hide from PAUSE
 
 use strict;
 use warnings;
-use DBICTest::AuthorCheck;
+use DBICTest::RunMode;
 use DBICTest::Schema;
 use Carp;
 
@@ -112,6 +112,8 @@ sub _database {
 }
 
 sub __mk_disconnect_guard {
+  return if DBICTest::RunMode->peepeeness; # leaks handles, delaying DESTROY, can't work right
+
   my $db_file = shift;
   return unless -f $db_file;