| … | |
… | |
| 2273 | =cut |
2273 | =cut |
| 2274 | |
2274 | |
| 2275 | sub deref { |
2275 | sub deref { |
| 2276 | my ($ref) = @_; |
2276 | my ($ref) = @_; |
| 2277 | |
2277 | |
| 2278 | # temporary compatibility#TODO#remove |
|
|
| 2279 | $ref =~ s{^<}{player/<}; |
|
|
| 2280 | |
|
|
| 2281 | if ($ref =~ m{^player\/(<1\.\d+>)/(.*)$}) { |
2278 | if ($ref =~ m{^player\/(<1\.[0-9a-f]+>)/(.*)$}) { |
| 2282 | my ($uuid, $name) = ($1, $2); |
2279 | my ($uuid, $name) = ($1, $2); |
| 2283 | my $pl = $cf::PLAYER_LOADING{$name} || cf::player::find $name |
2280 | my $pl = $cf::PLAYER_LOADING{$name} || cf::player::find $name |
| 2284 | or return; |
2281 | or return; |
| 2285 | $pl->ob->uuid eq $uuid |
2282 | $pl->ob->uuid eq $uuid |
| 2286 | or return; |
2283 | or return; |
| … | |
… | |
| 3626 | $AIO_POLL_WATCHER = Event->io ( |
3623 | $AIO_POLL_WATCHER = Event->io ( |
| 3627 | reentrant => 0, |
3624 | reentrant => 0, |
| 3628 | data => WF_AUTOCANCEL, |
3625 | data => WF_AUTOCANCEL, |
| 3629 | fd => IO::AIO::poll_fileno, |
3626 | fd => IO::AIO::poll_fileno, |
| 3630 | poll => 'r', |
3627 | poll => 'r', |
| 3631 | prio => 6, |
3628 | prio => 0, |
| 3632 | cb => \&IO::AIO::poll_cb, |
3629 | cb => \&IO::AIO::poll_cb, |
| 3633 | ); |
3630 | ); |
| 3634 | } |
3631 | } |
| 3635 | |
3632 | |
| 3636 | my $_log_backtrace; |
3633 | my $_log_backtrace; |
