| … | |
… | |
| 3370 | debug "loading perl module $mod\n"; |
3370 | debug "loading perl module $mod\n"; |
| 3371 | } |
3371 | } |
| 3372 | |
3372 | |
| 3373 | # 1. find real file |
3373 | # 1. find real file |
| 3374 | for my $dir (@ORIG_INC) { |
3374 | for my $dir (@ORIG_INC) { |
| 3375 | warn "$dir/$mod\n";#d# |
|
|
| 3376 | ref $dir and next; |
3375 | ref $dir and next; |
| 3377 | 0 <= Coro::AIO::aio_load "$dir/$mod", my $data |
3376 | 0 <= Coro::AIO::aio_load "$dir/$mod", my $data |
| 3378 | or next; |
3377 | or next; |
| 3379 | |
3378 | |
| 3380 | $data = "#line 1 $dir/$mod\n$data"; |
3379 | $data = "#line 1 $dir/$mod\n$data"; |
