… | |
… | |
1353 | aio_unlink +(playerdir $login) . "/$login.pl"; |
1353 | aio_unlink +(playerdir $login) . "/$login.pl"; |
1354 | |
1354 | |
1355 | my $f = new_from_file cf::object::thawer path $login |
1355 | my $f = new_from_file cf::object::thawer path $login |
1356 | or return; |
1356 | or return; |
1357 | |
1357 | |
1358 | $f->next; |
|
|
1359 | my $pl = cf::player::load_pl $f |
1358 | my $pl = cf::player::load_pl $f |
1360 | or return; |
1359 | or return; |
1361 | local $cf::PLAYER_LOADING{$login} = $pl; |
1360 | local $cf::PLAYER_LOADING{$login} = $pl; |
1362 | $f->resolve_delayed_derefs; |
1361 | $f->resolve_delayed_derefs; |
1363 | $cf::PLAYER{$login} = $pl |
1362 | $cf::PLAYER{$login} = $pl |