… | |
… | |
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 | $error ||= 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 $f_md5; # 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; |
608 | $error ||= $md5 ne $f_md5; |
608 | $error ||= $md5 ne $f_md5; |
609 | } |
609 | } |
610 | } |
610 | } |