From d85fa9c5fbc1e73e63c830a019331041e54c597d Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Mon, 7 Jan 2013 13:49:07 +0100
Subject: [PATCH] 9105: Followup for closing Zoom connections

Housekeeping: close the results sets and connections from Z3950 searches.
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
No regression found, all tests and QA script pass.
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
---
 C4/Breeding.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index f82ecf8874..4d26be603b 100644
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -412,6 +412,12 @@ sub Z3950Search {
         );
     } # while nremaining
 
+    #close result sets and connections
+    foreach(0..$s-1) {
+        $oResult[$_]->destroy();
+        $oConnection[$_]->destroy();
+    }
+
     my @servers = ();
     foreach my $id (@id) {
         push @servers, {id => $id};
-- 
2.39.5