| … | |
… | |
| 2699 | $rmp->{origin_y} = $exit->y; |
2699 | $rmp->{origin_y} = $exit->y; |
| 2700 | } |
2700 | } |
| 2701 | |
2701 | |
| 2702 | $rmp->{random_seed} ||= $exit->random_seed; |
2702 | $rmp->{random_seed} ||= $exit->random_seed; |
| 2703 | |
2703 | |
| 2704 | my $data = JSON::XS->new->utf8->pretty->canolicalize->encode ($rmp); |
2704 | my $data = JSON::XS->new->utf8->pretty->canonical->encode ($rmp); |
| 2705 | my $md5 = Digest::MD5::md5_hex $data; |
2705 | my $md5 = Digest::MD5::md5_hex $data; |
| 2706 | my $meta = "$RANDOMDIR/$md5.meta"; |
2706 | my $meta = "$RANDOMDIR/$md5.meta"; |
| 2707 | |
2707 | |
| 2708 | if (my $fh = aio_open "$meta~", O_WRONLY | O_CREAT, 0666) { |
2708 | if (my $fh = aio_open "$meta~", O_WRONLY | O_CREAT, 0666) { |
| 2709 | aio_write $fh, 0, (length $data), $data, 0; |
2709 | aio_write $fh, 0, (length $data), $data, 0; |
