Bug 8379 removing another useless ->disconnect line

and s/tab/spaces/

Signed-off-by: Dobrica Pavlinusic <dpavlin@rot13.org>
This commit is contained in:
Paul Poulain 2012-09-24 22:55:45 +02:00
parent f88f11b4f8
commit 7576704d3f
1 changed files with 6 additions and 7 deletions

View File

@ -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;