Changeset 1608

Show
Ignore:
Timestamp:
03/28/08 00:10:58 (8 months ago)
Author:
bchoate
Message:

Fix for initial assignment to meta column.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r1563 r1608  
    423423        } 
    424424        my $meta = $obj->column($meta_col); 
    425         if (!ref $meta && defined($meta)) { 
    426             $meta = __thaw_meta(\$meta); 
    427             $obj->{column_values}{$meta_col} = $meta; 
     425        if (!defined($meta)) { 
     426            $obj->{column_values}{$meta_col} = $meta = {}; 
     427        } elsif (!ref $meta) { 
     428            $obj->{column_values}{$meta_col} = $meta = __thaw_meta(\$meta); 
    428429        } 
    429430        if (@_) {