| … | |
… | |
| 597 | my $fh = Coro::AIO::aio_open "$override.tmp", IO::AIO::O_RDONLY, 0; |
597 | my $fh = Coro::AIO::aio_open "$override.tmp", IO::AIO::O_RDONLY, 0; |
| 598 | |
598 | |
| 599 | if ($fh) { |
599 | if ($fh) { |
| 600 | $error ||= Coro::AIO::aio_stat "$override.tmp"; |
600 | $error ||= Coro::AIO::aio_stat "$override.tmp"; |
| 601 | $error ||= -s _ != $size; |
601 | $error ||= -s _ != $size; |
| 602 | $error ||= Coro::AIO::aio_readahead $fh, 0, $size; |
602 | Coro::AIO::aio_readahead $fh, 0, $size; |
| 603 | |
603 | |
| 604 | my $f_md5 = new Digest::MD5; |
604 | my $f_md5 = new Digest::MD5; |
| 605 | binmode $fh; # ugh :( |
605 | binmode $fh; # ugh :( |
| 606 | $f_md5->addfile ($fh); |
606 | $f_md5->addfile ($fh); |
| 607 | $f_md5 = $f_md5->hexdigest; |
607 | $f_md5 = $f_md5->hexdigest; |
