| … | |
… | |
| 53 | |
53 | |
| 54 | print open (PWD, "<&" . fileno $pwd) ? "ok" : "not ok", " 7\n"; |
54 | print open (PWD, "<&" . fileno $pwd) ? "ok" : "not ok", " 7\n"; |
| 55 | |
55 | |
| 56 | aio_stat *PWD, sub { |
56 | aio_stat *PWD, sub { |
| 57 | print -f _ ? "ok" : "not ok", " 8\n"; |
57 | print -f _ ? "ok" : "not ok", " 8\n"; |
|
|
58 | my @stat = stat _; |
|
|
59 | $stat[0] = $pwd[0]; # dev |
|
|
60 | $stat[6] = $pwd[6]; # rdev |
| 58 | print +(join ":", @pwd) eq (join ":", stat _) ? "ok" : "not ok", " 9\n"; |
61 | print +(join ":", @pwd) eq (join ":", @stat) ? "ok" : "not ok", " 9\n"; |
| 59 | }; |
62 | }; |
| 60 | |
63 | |
| 61 | pcb; |
64 | pcb; |
| 62 | |
65 | |
| 63 | aio_close *PWD, sub { |
66 | aio_close *PWD, sub { |
