Bug 8379 removing another useless ->disconnect line
and s/tab/spaces/ Signed-off-by: Dobrica Pavlinusic <dpavlin@rot13.org>
This commit is contained in:
parent
f88f11b4f8
commit
7576704d3f
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue