| … | |
… | |
| 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; |
