From 39b8a51f262d4391b7f6f5d896b85caea13032c6 Mon Sep 17 00:00:00 2001
From: "David E. Wheeler" <david@justatheory.com>
Date: Mon, 22 Oct 2012 14:16:13 -0700
Subject: [PATCH] Silence warning about active statement handles.

By calling `finish()` on them.
---
 Bucardo.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Bucardo.pm b/Bucardo.pm
index 22b284dd6..8c5a84e6b 100644
--- 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
-- 
2.39.5