# THE SAME PROBLEM:
   eval {
     $self->{'dbh'} = DBI->connect(@_,{RaiseError=>1,PrintError=>0})
   };
   carp $@ if $@;