… | |
… | |
1133 | my $path = path $pl; |
1133 | my $path = path $pl; |
1134 | my $guard = cf::lock_acquire "user_save:$path"; |
1134 | my $guard = cf::lock_acquire "user_save:$path"; |
1135 | |
1135 | |
1136 | return if $pl->{deny_save}; |
1136 | return if $pl->{deny_save}; |
1137 | |
1137 | |
1138 | IO::AIO::aio_mkdir playerdir $pl, 0770; |
1138 | Coro::AIO::aio_mkdir playerdir $pl, 0770; |
1139 | $pl->{last_save} = $cf::RUNTIME; |
1139 | $pl->{last_save} = $cf::RUNTIME; |
1140 | |
1140 | |
1141 | Coro::cede; |
|
|
1142 | $pl->save_pl ($path); |
1141 | $pl->save_pl ($path); |
1143 | Coro::cede; |
1142 | Coro::cede; |
1144 | } |
1143 | } |
1145 | |
1144 | |
1146 | sub new($) { |
1145 | sub new($) { |