… | |
… | |
2272 | |
2272 | |
2273 | =cut |
2273 | =cut |
2274 | |
2274 | |
2275 | sub deref { |
2275 | sub deref { |
2276 | my ($ref) = @_; |
2276 | my ($ref) = @_; |
2277 | |
|
|
2278 | # temporary compatibility#TODO#remove |
|
|
2279 | $ref =~ s{^<}{player/<}; |
|
|
2280 | |
2277 | |
2281 | if ($ref =~ m{^player\/(<1\.[0-9a-f]+>)/(.*)$}) { |
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; |