Silence warning about active statement handles.

By calling `finish()` on them.

diff --git a/Bucardo.pm b/Bucardo.pm
index 22b284dd62f5b85fa097bbe907fa763e922c5dd6..8c5a84e6b123ece3e7ec5e01241070dbb71a4741 100644 (file)
--- a/Bucardo.pm
+++ b/Bucardo.pm
@@ -2173,6 +2173,7 @@ sub start_kid {
         ## Drop connection to the main database, then reconnect
         if (defined $maindbh and $maindbh) {
             $maindbh->rollback;
+            $_->finish for values %{ $maindbh->{CachedKids} };
             $maindbh->disconnect;
         }
         my ($finalbackend, $finaldbh) = $self->connect_database();
@@ -2186,6 +2187,7 @@ sub start_kid {
 
             $dbh->rollback();
             $self->glog("Disconnecting from database $dbname", LOG_DEBUG);
+            $_->finish for values %{ $dbh->{CachedKids} };
             $dbh->disconnect();
 
             ## Clear out the entry from the dbrun table