… | |
… | |
20 | IO::AIO::poll_cb; |
20 | IO::AIO::poll_cb; |
21 | } |
21 | } |
22 | } |
22 | } |
23 | |
23 | |
24 | aio_open "/etc/passwd", O_RDONLY, 0, sub { |
24 | aio_open "/etc/passwd", O_RDONLY, 0, sub { |
25 | print $_[0] >= 0 ? "ok" : "not ok", " 1\n"; |
25 | print $_[0] ? "ok" : "not ok", " 1\n"; |
|
|
26 | |
26 | $pwd = $_[0]; |
27 | $pwd = $_[0]; |
27 | }; |
28 | }; |
28 | |
29 | |
29 | pcb; |
30 | pcb; |
30 | |
31 | |
… | |
… | |
48 | print eval { stat _; 1 } ? "ok" : "not ok", " 6\n"; |
49 | print eval { stat _; 1 } ? "ok" : "not ok", " 6\n"; |
49 | }; |
50 | }; |
50 | |
51 | |
51 | pcb; |
52 | pcb; |
52 | |
53 | |
53 | print open (PWD, "<&$pwd") ? "ok" : "not ok", " 7\n"; |
54 | print open (PWD, "<&" . fileno $pwd) ? "ok" : "not ok", " 7\n"; |
54 | |
55 | |
55 | aio_stat *PWD, sub { |
56 | aio_stat *PWD, sub { |
56 | print -f _ ? "ok" : "not ok", " 8\n"; |
57 | print -f _ ? "ok" : "not ok", " 8\n"; |
57 | print +(join ":", @pwd) eq (join ":", stat _) ? "ok" : "not ok", " 9\n"; |
58 | print +(join ":", @pwd) eq (join ":", stat _) ? "ok" : "not ok", " 9\n"; |
58 | }; |
59 | }; |