use strict;
use warnings;
-use DBICTest::AuthorCheck;
+use DBICTest::RunMode;
use DBICTest::Schema;
use Carp;
for ($db_file, "${db_file}-journal") {
next unless -e $_;
unlink ($_) or carp (
- "Unable to unlink existing test database file $_ ($!), creation of fresh database / further tests may fail!\n"
+ "Unable to unlink existing test database file $_ ($!), creation of fresh database / further tests may fail!"
);
}
}
sub __mk_disconnect_guard {
+ return if DBIx::Class::_ENV_::PEEPEENESS(); # leaks handles, delaying DESTROY, can't work right
+
my $db_file = shift;
return unless -f $db_file;