… | |
… | |
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 { |