[Bast-commits] r8030 - DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI

[ribasushi at dev.catalyst.perl.org]

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