Fix borked next invocation

diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm b/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
index 1b661f8..48f6198 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
+++ b/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
@@ -6,7 +6,8 @@ use base qw/DBIx::Class::Storage::DBI::MSSQL/;
 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 @@ sub insert_bulk {
     $self->dbh->do("SET IDENTITY_INSERT $table ON");
   }
 
-  next::method(@_);
+  $self->next::method(@_);
 
   if ($identity_insert) {
     my $table = $source->from;