X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI.pm;h=3a7d9781d54302ebb18a9371ba5de029536a0e8b;hb=3b24f6ea87d4339179f2752b661d85dd08827d8f;hp=afc8a6683292cbf7ae4190f7e8bae143f505a840;hpb=bfe10d87f8b99fc852813e8311e9d9ec6aff1809;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index afc8a66..3a7d978 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -527,7 +527,9 @@ sub columns_info_for {
     if ($self->dbh->can('column_info')) {
         my %result;
         my $old_raise_err = $self->dbh->{RaiseError};
+        my $old_print_err = $self->dbh->{PrintError};
         $self->dbh->{RaiseError} = 1;
+        $self->dbh->{PrintError} = 0;
         eval {
             my $sth = $self->dbh->column_info( undef, undef, $table, '%' );
             $sth->execute();
@@ -541,6 +543,7 @@ sub columns_info_for {
             }
         };
         $self->dbh->{RaiseError} = $old_raise_err;
+        $self->dbh->{PrintError} = $old_print_err;
         return \%result if !$@;
     }