From: Rafael Kitover Date: Sat, 29 Aug 2009 12:09:13 +0000 (+0000) Subject: minor changes for tests to pass again X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58e3556d625168736ee3548b60bd0833cb99e69e;p=dbsrgits%2FDBIx-Class-Historic.git minor changes for tests to pass again --- diff --git a/lib/DBIx/Class/Storage/DBI/Sybase.pm b/lib/DBIx/Class/Storage/DBI/Sybase.pm index 6111924..886308d 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase.pm @@ -291,7 +291,7 @@ sub last_insert_id { shift->_identity } # override to handle TEXT/IMAGE and to do a transaction if necessary sub insert { my $self = shift; - my ($ident, $source, $to_insert) = @_; + my ($source, $to_insert) = @_; my $blob_cols = $self->_remove_blob_cols($source, $to_insert); @@ -314,7 +314,7 @@ sub insert { my $guard = $self->txn_scope_guard; my $upd_cols = $self->next::method (@_); $guard->commit; - return $upd_cols; + $upd_cols; } else { $self->next::method(@_); @@ -642,7 +642,7 @@ C command on connection. See L for a L setting you need to work with C columns. -=head1 AUTHORS +=head1 AUTHOR See L.