hopefully actually fix inflate this time
David Kamholz [Sun, 18 Jun 2006 22:23:20 +0000 (22:23 +0000)]
lib/DBIx/Class/InflateColumn.pm

index 61efb00..165b632 100644 (file)
@@ -126,8 +126,8 @@ analogous to L<DBIx::Class::Row/set_column>.
 
 sub set_inflated_column {
   my ($self, $col, $obj) = @_;
-  $self->set_column($col, $self->_deflated_column($col, $obj));
-  return $self->store_inflated_column($col, $obj);
+  delete $self->{_inflated_column}{$col};
+  return $self->set_column($col, $self->_deflated_column($col, $obj));
 }
 
 =head2 store_inflated_column
@@ -141,10 +141,7 @@ as dirty. This is directly analogous to L<DBIx::Class::Row/store_column>.
 
 sub store_inflated_column {
   my ($self, $col, $obj) = @_;
-  unless (blessed($obj)) {
-    delete $self->{_inflated_column}{$col};
-    return undef;
-  }
+  delete $self->{_column_data}{$col};
   return $self->{_inflated_column}{$col} = $obj;
 }