… | |
… | |
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"; |