Fixes Redmine.pm error "closing dbh with active statement handles at /usr/lib/perl5/Apache/Redmine.pm" (#4205).

git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@3300 e93f8b46-1217-0410-a6f0-8f06a7374b81
This commit is contained in:
Jean-Philippe Lang 2010-01-10 10:17:27 +00:00
parent 23508f4f98
commit 1b65a44cfc
1 changed files with 5 additions and 0 deletions

View File

@ -244,7 +244,9 @@ sub is_public_project {
}
}
$sth->finish();
undef $sth;
$dbh->disconnect();
undef $dbh;
$ret;
}
@ -310,10 +312,13 @@ sub is_member {
$ret = 1 if ($ldap->authenticate($redmine_user, $redmine_pass));
}
$sthldap->finish();
undef $sthldap;
}
}
$sth->finish();
undef $sth;
$dbh->disconnect();
undef $dbh;
if ($cfg->{RedmineCacheCredsMax} and $ret) {
if (defined $usrprojpass) {