… | |
… | |
2086 | my $f = new_from_file cf::object::thawer $self->{load_path}; |
2086 | my $f = new_from_file cf::object::thawer $self->{load_path}; |
2087 | $f->skip_block; |
2087 | $f->skip_block; |
2088 | $self->_load_objects ($f) |
2088 | $self->_load_objects ($f) |
2089 | or return; |
2089 | or return; |
2090 | |
2090 | |
2091 | $self->set_object_flag (cf::FLAG_OBJ_ORIGINAL, 1) |
2091 | $self->post_load_original |
2092 | if delete $self->{load_original}; |
2092 | if delete $self->{load_original}; |
2093 | |
2093 | |
2094 | if (my $uniq = $self->uniq_path) { |
2094 | if (my $uniq = $self->uniq_path) { |
2095 | utf8::encode $uniq; |
2095 | utf8::encode $uniq; |
2096 | unless (aio_stat $uniq) { |
2096 | unless (aio_stat $uniq) { |