From 5cd9c30f8fe5ba2ef9c8d20a8f48ee2d4215fcf6 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy 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