… | |
… | |
1320 | |
1320 | |
1321 | # "readahead" all extensions |
1321 | # "readahead" all extensions |
1322 | sub cache_extensions { |
1322 | sub cache_extensions { |
1323 | my $grp = IO::AIO::aio_group; |
1323 | my $grp = IO::AIO::aio_group; |
1324 | |
1324 | |
1325 | add $grp IO::AIO::aio_readdir $LIBDIR, sub { |
1325 | add $grp IO::AIO::aio_readdirx $LIBDIR, IO::AIO::READDIR_STAT_ORDER, sub { |
1326 | for (grep /\.ext$/, @{$_[0]}) { |
1326 | for (grep /\.ext$/, @{$_[0]}) { |
1327 | add $grp IO::AIO::aio_load "$LIBDIR/$_", my $data; |
1327 | add $grp IO::AIO::aio_load "$LIBDIR/$_", my $data; |
1328 | } |
1328 | } |
1329 | }; |
1329 | }; |
1330 | |
1330 | |