From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 18 Jun 2006 23:07:59 +0000 (+0000)
Subject: store deflated value when handed to store_deflated_column
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5cf11f1e582b7380a6a91b29cf3ba0b26fcaea0;p=dbsrgits%2FDBIx-Class-Historic.git

store deflated value when handed to store_deflated_column
---

diff --git a/lib/DBIx/Class/InflateColumn.pm b/lib/DBIx/Class/InflateColumn.pm
index 382b332..d5791cb 100644
--- a/lib/DBIx/Class/InflateColumn.pm
+++ b/lib/DBIx/Class/InflateColumn.pm
@@ -148,7 +148,8 @@ sub store_inflated_column {
   my ($self, $col, $obj) = @_;
   unless (blessed $obj) {
       delete $self->{_inflated_column}{$col};
-      return undef;
+      $self->store_column($col => $obj);
+      return $obj;
   }
   delete $self->{_column_data}{$col};
   return $self->{_inflated_column}{$col} = $obj;