From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 30 Jun 2009 09:54:34 +0000 (+0000)
Subject: Fix borked next invocation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76212d3053ba43ea30bb821923937482d33db558;p=dbsrgits%2FDBIx-Class-Historic.git

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
--- 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;