Fixes Redmine.pm error "closing dbh with active statement handles at /usr/lib/perl5...

git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@3300 e93f8b46-1217-0410-a6f0-8f06a7374b81

diff --git a/extra/svn/Redmine.pm b/extra/svn/Redmine.pm
index 1829d2b..1b3b091 100644 (file)
--- a/extra/svn/Redmine.pm
+++ b/extra/svn/Redmine.pm
@@ -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) {