… | |
… | |
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 | $f_md5->addfile ($fh); |
606 | $f_md5->addfile ($fh); |
606 | $f_md5 = $f_md5->hexdigest; |
607 | $f_md5 = $f_md5->hexdigest; |
607 | $error ||= $md5 ne $f_md5; |
608 | $error ||= $md5 ne $f_md5; |
608 | } |
609 | } |
609 | } |
610 | } |