[Bast-commits] r7427 - DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI

caelum at dev.catalyst.perl.org caelum at dev.catalyst.perl.org
Sat Aug 29 12:09:13 GMT 2009


Author: caelum
Date: 2009-08-29 12:09:13 +0000 (Sat, 29 Aug 2009)
New Revision: 7427

Modified:
   DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm
Log:
minor changes for tests to pass again

Modified: DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-08-29 11:40:48 UTC (rev 7426)
+++ DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-08-29 12:09:13 UTC (rev 7427)
@@ -291,7 +291,7 @@
 # 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 @@
       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 @@
 See L</connect_call_blob_setup> for a L<DBIx::Class::Storage::DBI/connect_info>
 setting you need to work with C<IMAGE> columns.
 
-=head1 AUTHORS
+=head1 AUTHOR
 
 See L<DBIx::Class/CONTRIBUTORS>.
 




More information about the Bast-commits mailing list