From 8e54270e44228439b5135d95b9990d32f4b876a8 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>
---
 C4/Breeding.pm |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index f82ecf8..4d26be6 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};
-- 
1.7.2.5