From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sat, 29 Aug 2009 11:40:48 +0000 (+0000)
Subject: Varname was absolutely correct
X-Git-Tag: v0.08112~14^2~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5370e4792df43a8cfa1e3a53b0757de1343b4ca4;p=dbsrgits%2FDBIx-Class.git

Varname was absolutely correct
---

diff --git a/lib/DBIx/Class/Storage/DBI/Sybase.pm b/lib/DBIx/Class/Storage/DBI/Sybase.pm
index e28ee63..6111924 100644
--- a/lib/DBIx/Class/Storage/DBI/Sybase.pm
+++ b/lib/DBIx/Class/Storage/DBI/Sybase.pm
@@ -328,7 +328,7 @@ sub insert {
 
 sub update {
   my $self = shift;
-  my ($source, $fields, $ident_cond) = @_;
+  my ($source, $fields, $where) = @_;
 
   my $wantarray = wantarray;
 
@@ -345,7 +345,7 @@ sub update {
     $self->next::method(@_);
   }
 
-  $self->_update_blobs($source, $blob_cols, $ident_cond) if %$blob_cols;
+  $self->_update_blobs($source, $blob_cols, $where) if %$blob_cols;
 
   return $wantarray ? @res : $res[0];
 }
@@ -366,7 +366,7 @@ sub _remove_blob_cols {
 }
 
 sub _update_blobs {
-  my ($self, $source, $blob_cols, $ident_cond) = @_;
+  my ($self, $source, $blob_cols, $where) = @_;
 
   my (@primary_cols) = $source->primary_columns;
 
@@ -376,17 +376,17 @@ sub _update_blobs {
 # check if we're updating a single row by PK
   my $pk_cols_in_where = 0;
   for my $col (@primary_cols) {
-    $pk_cols_in_where++ if defined $ident_cond->{$col};
+    $pk_cols_in_where++ if defined $where->{$col};
   }
   my @rows;
 
   if ($pk_cols_in_where == @primary_cols) {
     my %row_to_update;
-    @row_to_update{@primary_cols} = @{$ident_cond}{@primary_cols};
+    @row_to_update{@primary_cols} = @{$where}{@primary_cols};
     @rows = \%row_to_update;
   } else {
     my $rs = $source->resultset->search(
-      $ident_cond,
+      $where,
       {
         result_class => 'DBIx::Class::ResultClass::HashRefInflator',
         select => \@primary_cols