--- Redmine.pm  (revision 3023)
+++ Redmine.pm  (working copy)
@@ -231,13 +231,15 @@

     my $dbh = connect_database($r);
     my $sth = $dbh->prepare(
-        "SELECT * FROM projects WHERE projects.identifier=? and projects.is_public=true;"
+        "SELECT * FROM projects WHERE projects.identifier=? and projects.is_public='t';"
     );

     $sth->execute($project_id);
     my $ret = $sth->fetchrow_array ? 1 : 0;
     $sth->finish();
+    undef $sth;
     $dbh->disconnect();
+    undef $dbh;

     $ret;
 }
@@ -303,10 +305,13 @@
             $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) {