X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRow.pm;h=31c702805a0c4a222aa0476dd91a96188de83de7;hb=97a509759922e70ec9094e249524cfd2a26af31e;hp=02e51d3cde8bb23751266df18477dd09c6d3081c;hpb=ad3f2296a99dac262f948f07f36a635d69995c8b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm index 02e51d3..31c7028 100644 --- a/lib/DBIx/Class/Row.pm +++ b/lib/DBIx/Class/Row.pm @@ -519,14 +519,14 @@ this method. sub update { my ($self, $upd) = @_; + my $ident_cond = $self->{_orig_ident} || $self->ident_condition; + $self->set_inflated_columns($upd) if $upd; my %to_update = $self->get_dirty_columns; return $self unless keys %to_update; $self->throw_exception( "Not in database" ) unless $self->in_storage; - my $ident_cond = $self->{_orig_ident} || $self->ident_condition; - $self->throw_exception('Unable to update a row with incomplete or no identity') if ! keys %$ident_cond;