[Bast-commits] r8030 -
DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI
ribasushi at dev.catalyst.perl.org
ribasushi at dev.catalyst.perl.org
Fri Dec 4 08:34:56 GMT 2009
Author: ribasushi
Date: 2009-12-04 08:34:56 +0000 (Fri, 04 Dec 2009)
New Revision: 8030
Modified:
DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm
Log:
Variable clash
Modified: DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm 2009-12-04 01:48:00 UTC (rev 8029)
+++ DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/MSSQL.pm 2009-12-04 08:34:56 UTC (rev 8030)
@@ -193,12 +193,12 @@
return $self->next::method (@_);
}
- my ($sql, $bind, @rest) = $self->next::method (@_);
+ my ($sql, $prep_bind, @rest) = $self->next::method (@_);
$sql =~ s/^ \s* SELECT \s/SELECT TOP 100 PERCENT /xi;
return wantarray
- ? ($sql, $bind, @rest)
- : \[ "($sql)", @$bind ]
+ ? ($sql, $prep_bind, @rest)
+ : \[ "($sql)", @$prep_bind ]
;
}
More information about the Bast-commits
mailing list