From: Jess Robinson <castaway@desert-island.me.uk>
Date: Tue, 28 Nov 2006 12:44:42 +0000 (+0000)
Subject: Add blessed checking to deflate
X-Git-Tag: v0.08010~150^2~118
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f81c9328e25a6d1484c8c234e9fd38bae62f6a1;p=dbsrgits%2FDBIx-Class.git

Add blessed checking to deflate
---

diff --git a/lib/DBIx/Class/InflateColumn.pm b/lib/DBIx/Class/InflateColumn.pm
index 6b06cb0..1168157 100644
--- a/lib/DBIx/Class/InflateColumn.pm
+++ b/lib/DBIx/Class/InflateColumn.pm
@@ -85,7 +85,7 @@ sub _inflated_column {
 
 sub _deflated_column {
   my ($self, $col, $value) = @_;
-  return $value unless ref $value; # If it's not an object, don't touch it
+  return $value unless ref $value && blessed($value); # If it's not an object, don't touch it
   my $info = $self->column_info($col) or
     $self->throw_exception("No column info for $col");
   return $value unless exists $info->{_inflate_info};