Changeset 1563

Show
Ignore:
Timestamp:
03/24/08 22:49:00 (20 months ago)
Author:
bchoate
Message:

Fix for seeding object cache member.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-32/lib/MT/Object.pm

    r1470 r1563  
    423423        } 
    424424        my $meta = $obj->column($meta_col); 
    425         if (!ref $meta) { 
     425        if (!ref $meta && defined($meta)) { 
    426426            $meta = __thaw_meta(\$meta); 
    427427            $obj->{column_values}{$meta_col} = $meta; 
    … …  
    932932        $r->cache('object_cache', $oc); 
    933933    } 
    934     $oc = $oc->{"$obj"}; 
     934    $oc = $oc->{"$obj"} ||= {}; 
    935935    if (@_) { 
    936936        $oc->{$key} = $_[0];