diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index a6db0d4..afa1ec0 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -28,7 +28,6 @@ use fields qw(
     _continuation
 );
 use Qpsmtpd::Constants;
-use Qpsmtpd::Auth;
 use Qpsmtpd::Address;
 use Danga::DNS;
 use Mail::Header;
diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 87f0118..ec29377 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -8,7 +8,6 @@ use Carp;
 
 use Qpsmtpd::Plugin;
 use Qpsmtpd::Constants;
-use Qpsmtpd::Auth;
 use Qpsmtpd::Address ();
 
 use Mail::Header ();
diff --git a/plugins/auth/auth_vpopmail_sql b/plugins/auth/auth_vpopmail_sql
index 8f07479..81de033 100644
--- a/plugins/auth/auth_vpopmail_sql
+++ b/plugins/auth/auth_vpopmail_sql
@@ -67,8 +67,9 @@ sub authsql {
     my $dbuser   = "vpopmailuser";
     my $dbpasswd = "**********";
 
-    my $dbh = DBI->connect( $connect, $dbuser, $dbpasswd );
-    $dbh->{ShowErrorStatement} = 1;
+    my $dbh = DBI->connect( $connect, $dbuser, $dbpasswd, 
+    	{ PrintError => 0, } )
+    	or return DECLINED;
 
     my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) =
       @_;