| … | |
… | |
| 21 | use Coro::Semaphore; |
21 | use Coro::Semaphore; |
| 22 | use Coro::AIO; |
22 | use Coro::AIO; |
| 23 | use Coro::Storable; |
23 | use Coro::Storable; |
| 24 | use Coro::Util (); |
24 | use Coro::Util (); |
| 25 | |
25 | |
| 26 | use JSON::XS 1.4 (); |
26 | use JSON::XS (); |
| 27 | use BDB (); |
27 | use BDB (); |
| 28 | use Data::Dumper; |
28 | use Data::Dumper; |
| 29 | use Digest::MD5; |
29 | use Digest::MD5; |
| 30 | use Fcntl; |
30 | use Fcntl; |
| 31 | use YAML::Syck (); |
31 | use YAML::Syck (); |
| … | |
… | |
| 2832 | # the server's init and main functions |
2832 | # the server's init and main functions |
| 2833 | |
2833 | |
| 2834 | sub load_facedata($) { |
2834 | sub load_facedata($) { |
| 2835 | my ($path) = @_; |
2835 | my ($path) = @_; |
| 2836 | |
2836 | |
| 2837 | my $enc = JSON::XS->new->utf8->canonical; |
2837 | my $enc = JSON::XS->new->utf8->canonical->relaxed; |
| 2838 | |
2838 | |
| 2839 | warn "loading facedata from $path\n"; |
2839 | warn "loading facedata from $path\n"; |
| 2840 | |
2840 | |
| 2841 | my $facedata; |
2841 | my $facedata; |
| 2842 | 0 < aio_load $path, $facedata |
2842 | 0 < aio_load $path, $facedata |
