[Bast-commits] r6873 - DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/Storage/DBI/ODBC

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-30 09:54:34 +0000 (Tue, 30 Jun 2009)
New Revision: 6873

Modified:
   DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
Log:
Fix borked next invocation

Modified: DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-06-30 09:32:59 UTC (rev 6872)
+++ DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-06-30 09:54:34 UTC (rev 6873)
@@ -6,7 +6,8 @@
 use List::Util();
 
 sub insert_bulk {
-  my ($self, $source, $cols, $data) = @_;
+  my $self = shift;
+  my ($source, $cols, $data) = @_;
 
   my $identity_insert = 0;
 
@@ -23,7 +24,7 @@
     $self->dbh->do("SET IDENTITY_INSERT $table ON");
   }
 
-  next::method(@_);
+  $self->next::method(@_);
 
   if ($identity_insert) {
     my $table = $source->from;