From: Peter Rabbitson Date: Mon, 29 Nov 2010 05:18:51 +0000 (+0100) Subject: Quieter Sybase tests X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f32e99f9ba84497e4d0adc44a650a891683fa7bd;p=dbsrgits%2FDBIx-Class-Historic.git Quieter Sybase tests --- diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm b/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm index d2f5e2f..14f34cd 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm @@ -659,15 +659,12 @@ EOF DBD::Sybase::set_cslib_cb($orig_cslib_cb); if ($exception =~ /-Y option/) { - carp <<"EOF"; + my $w = 'Sybase bulk API operation failed due to character set incompatibility, ' + . 'reverting to regular array inserts. Try unsetting the LANG environment variable' + ; + $w .= "\n$exception" if $self->debug; + carp $w; -Sybase bulk API operation failed due to character set incompatibility, reverting -to regular array inserts: - -*** Try unsetting the LANG environment variable. - -$exception -EOF $self->_bulk_storage(undef); unshift @_, $self; goto \&insert_bulk;