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