Changeset 573 for trunk/lib/Data/ObjectDriver/BaseObject.pm

Timestamp:

05/27/09 23:40:06 (6 months ago)

Author:

athomason

Message:

Merge inflate speedup from Yann's tree. See changelog for r211 for potential client impact.
http://code.sixapart.com/trac/Data-ObjectDriver/changeset/211
http://github.com/yannk/perl-data-objectdriver/commit/3c1d410b777cdcdfebc857125d5dfb8ee8d36ad5

Files:

• trunk/lib/Data/ObjectDriver/BaseObject.pm (modified) (1 diff)

trunk/lib/Data/ObjectDriver/BaseObject.pm

@@ -617 +617 @@
     my($deflated) = @_;
     my $obj = $class->new;
-    $obj->set_values($deflated->{columns});
-    $obj->{changed_cols} = {};
+    $obj->set_values_internal($deflated->{columns});
     $obj->call_trigger('post_inflate');
     return $obj;