From 1b65a44cfc1ecfb14d004586fa5fffee7d723f2e Mon Sep 17 00:00:00 2001
From: Jean-Philippe Lang <jp_lang@yahoo.fr>
Date: Sun, 10 Jan 2010 10:17:27 +0000
Subject: [PATCH] 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
---
 extra/svn/Redmine.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/extra/svn/Redmine.pm b/extra/svn/Redmine.pm
index 1829d2b0..1b3b0910 100644
--- 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) {