From 1ce9e375402858be8103b70d6fb1398a951e29c1 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Fri, 15 Nov 2002 14:50:55 +0000
Subject: [PATCH] added explicit dbh disconnect to MultiTestDB destructor
---
modules/t/MultiTestDB.pm | 1 +
1 file changed, 1 insertion(+)
diff --git a/modules/t/MultiTestDB.pm b/modules/t/MultiTestDB.pm
index 44a142b0f8..0682909a12 100644
--- a/modules/t/MultiTestDB.pm
+++ b/modules/t/MultiTestDB.pm
@@ -654,6 +654,7 @@ sub cleanup {
print STDERR "Dropping db $dbname \n";
$db->do("DROP database $dbname");
+ $db->disconnect;
}
my $conf_file = $self->curr_dir . $self->species . $FROZEN_CONF_EXT;
--
GitLab