Variable clash
Peter Rabbitson [Fri, 4 Dec 2009 08:34:56 +0000 (08:34 +0000)]
lib/DBIx/Class/Storage/DBI/MSSQL.pm

index 4add28c..cfbc634 100644 (file)
@@ -193,12 +193,12 @@ sub _select_args_to_query {
     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 ]
   ;
 }