[Bast-commits] r6873 -
DBIx-Class/0.08/branches/mssql_top_fixes/lib/DBIx/Class/Storage/DBI/ODBC
ribasushi at dev.catalyst.perl.org
ribasushi at dev.catalyst.perl.org
Tue Jun 30 09:54:34 GMT 2009
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;
More information about the Bast-commits
mailing list