From 55fcd09dd883be5cf6e14dac8ed255bf610d75a7 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Mon, 24 Sep 2012 22:55:45 +0200 Subject: [PATCH] Bug 8379 removing another useless ->disconnect line and s/tab/spaces/ Signed-off-by: Dobrica Pavlinusic --- admin/z3950servers.pl | 13 ++++++------- 1 files changed, 6 insertions(+), 7 deletions(-) diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl index d6044fc4..fc9e2ed 100755 --- a/admin/z3950servers.pl +++ b/admin/z3950servers.pl @@ -53,13 +53,12 @@ sub StringSearch { $sth->execute; } - my @results; - while (my $data=$sth->fetchrow_hashref) { - push(@results,$data); - } - $sth->finish; - $dbh->disconnect; - return (scalar(@results),\@results); + my @results; + while (my $data=$sth->fetchrow_hashref) { + push(@results,$data); + } + $sth->finish; + return (scalar(@results),\@results); } my $input = new CGI; -- 1.7.2.5