Changeset 2453

Timestamp:

05/28/08 08:05:44 (21 months ago)

Author:

fumiakiy

Message:

Changed the way to generate unique hash key for an object. BugId:79927

Files:

• branches/release-39/lib/MT/Object.pm (modified) (1 diff)

branches/release-39/lib/MT/Object.pm

@@ -1206 +1206 @@
         $r->cache('object_cache', $oc);
     }
-    $oc = $oc->{"$obj"} ||= {};
+
+    my $pk = $obj->primary_key;
+    $pk = join ":", @$pk if ref $pk;
+    $oc = $oc->{ref($obj). ':' . $pk} ||= {};
+
     if (@_) {
         $oc->{$key} = $_[0];