From 7576704d3fd2bd0eefdbd71e1f06f5fe3c354508 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 file changed, 6 insertions(+), 7 deletions(-) diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl index d6044fc454..fc9e2ed192 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; -- 2.39.5