Commit 1513aecf authored by Web Admin's avatar Web Admin
Browse files

fixed

parent 5c611bde
......@@ -728,7 +728,7 @@ sub set_disconnect_when_inactive{
=cut
sub disconnect_all {
foreach my $dba ( get_all_DBAdaptors() ){
foreach my $dba ( @{get_all_DBAdaptors()||[]} ){
my $dbc = $dba->dbc;
#disconnect if connected
$dbc->disconnect_if_idle() if $dbc->connected();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment