… | … | ||
---|---|---|---|
56 | aio_open $path, O_RDONLY, 0, sub { | 56 | aio_open $path, O_RDONLY, 0, sub { |
57 | my ($fh) = @_ | 57 | my ($fh) = @_ |
58 | or return; | 58 | or return; |
59 | aio_readahead $fh, 0, -s $fh, sub { | 59 | aio_readahead $fh, 0, -s $fh, sub { |
60 | my $time = Time::HiRes::time - $NOW; | 60 | my $time = Time::HiRes::time - $NOW; |
61 | warn "LONG PREFETCH $path $time\n" if $time > 0.15; | 61 | warn "LONG PREFETCH $path $time\n" if $time > 0.3; |
62 | }; | 62 | }; |
63 | }; | 63 | }; |
64 | } | 64 | } |
65 | } | 65 | } |
66 | 66 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |