| … | |
… | |
| 36 | { |
36 | { |
| 37 | my $path = $self->{path}; |
37 | my $path = $self->{path}; |
| 38 | do { |
38 | do { |
| 39 | Coro::AIO::aio_load "$path.dols/top", $data->{top} |
39 | Coro::AIO::aio_load "$path.dols/top", $data->{top} |
| 40 | unless Coro::AIO::aio_stat "$path.dols/top"; |
40 | unless Coro::AIO::aio_stat "$path.dols/top"; |
| 41 | Coro::AIO::aio_load "$path.dols/top", $data->{bot} |
41 | Coro::AIO::aio_load "$path.dols/bot", $data->{bot} |
| 42 | unless Coro::AIO::aio_stat "$path.dols/bot"; |
42 | unless Coro::AIO::aio_stat "$path.dols/bot"; |
| 43 | $path =~ s/[^\/]*\/+$// |
43 | $path =~ s/[^\/]*\/+$// |
| 44 | or die "malformed path: $path"; |
44 | or die "malformed path: $path"; |
| 45 | } while $path ne ""; |
45 | } while $path ne ""; |
| 46 | } |
46 | } |
