From 5cd9c30f8fe5ba2ef9c8d20a8f48ee2d4215fcf6 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
Content-Type: text/plain; charset="utf-8"

Housekeeping: close the results sets and connections from Z3950 searches.
---
 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.7.6