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