From: Tina Mueller <cpan2@tinita.de>
Date: Wed, 29 Jul 2015 14:36:28 +0000 (+0200)
Subject: remove identity retrieval statement for blob inserts (Sybase)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9b3e61c24aa6469dc25cc34ff34b03cbc834d7d;p=dbsrgits%2FDBIx-Class-Historic.git

remove identity retrieval statement for blob inserts (Sybase)
---

diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm b/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm
index fcbd0a7..3b493c9 100644
--- a/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm
+++ b/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm
@@ -791,6 +791,9 @@ sub _insert_blobs {
   $self->throw_exception('Cannot update TEXT/IMAGE column(s) without primary key values')
     if ((grep { defined $row{$_} } @primary_cols) != @primary_cols);
 
+  # do not perform identity retrieval on blob inserts
+  local $self->{_perform_autoinc_retrieval} = undef;
+
   for my $col (keys %$blob_cols) {
     my $blob = $blob_cols->{$col};