call inflate_result on new_result, but not from the CDBI compat layer

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / LiveObjectIndex.pm

diff --git a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm
index f05eff7..d62e325 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm
+++ b/lib/DBIx/Class/CDBICompat/LiveObjectIndex.pm
@@ -73,8 +73,11 @@ sub insert {
 
 sub inflate_result {
   my ($class, @rest) = @_;
+  
+  # we don't want to inflate_result on new_result
+  return $rest[3] if(defined $rest[3] && Scalar::Util::blessed $rest[3]);
+  
   my $new = $class->next::method(@rest);
-
   return $new if $new->nocache;
 
   if (my $key = $new->ID) {