… | |
… | |
2176 | $self->alloc; |
2176 | $self->alloc; |
2177 | |
2177 | |
2178 | $self->pre_load; |
2178 | $self->pre_load; |
2179 | cf::cede_to_tick; |
2179 | cf::cede_to_tick; |
2180 | |
2180 | |
|
|
2181 | if (exists $self->{load_path}) { |
2181 | my $f = new_from_file cf::object::thawer $self->{load_path}; |
2182 | my $f = new_from_file cf::object::thawer $self->{load_path}; |
2182 | $f->skip_block; |
2183 | $f->skip_block; |
2183 | $self->_load_objects ($f) |
2184 | $self->_load_objects ($f) |
2184 | or return; |
2185 | or return; |
2185 | |
2186 | |
2186 | $self->post_load_original |
2187 | $self->post_load_original |
2187 | if delete $self->{load_original}; |
2188 | if delete $self->{load_original}; |
2188 | |
2189 | |
2189 | if (my $uniq = $self->uniq_path) { |
2190 | if (my $uniq = $self->uniq_path) { |
2190 | utf8::encode $uniq; |
2191 | utf8::encode $uniq; |
2191 | unless (aio_stat $uniq) { |
2192 | unless (aio_stat $uniq) { |
2192 | if (my $f = new_from_file cf::object::thawer $uniq) { |
2193 | if (my $f = new_from_file cf::object::thawer $uniq) { |
2193 | $self->clear_unique_items; |
2194 | $self->clear_unique_items; |
2194 | $self->_load_objects ($f); |
2195 | $self->_load_objects ($f); |
2195 | $f->resolve_delayed_derefs; |
2196 | $f->resolve_delayed_derefs; |
|
|
2197 | } |
2196 | } |
2198 | } |
2197 | } |
2199 | } |
2198 | } |
|
|
2199 | |
2200 | |
2200 | $f->resolve_delayed_derefs; |
2201 | $f->resolve_delayed_derefs; |
|
|
2202 | } |
2201 | |
2203 | |
2202 | cf::cede_to_tick; |
2204 | cf::cede_to_tick; |
2203 | # now do the right thing for maps |
2205 | # now do the right thing for maps |
2204 | $self->link_multipart_objects; |
2206 | $self->link_multipart_objects; |
2205 | $self->difficulty ($self->estimate_difficulty) |
2207 | $self->difficulty ($self->estimate_difficulty) |