… | |
… | |
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 _; |
58 | my @stat = stat _; |
59 | $stat[0] = $pwd[0]; # dev |
59 | $stat[0] = $pwd[0]; # dev unreliable on windows |
60 | $stat[6] = $pwd[6]; # rdev |
60 | $stat[6] = $pwd[6]; # rdev unreliable on windows |
|
|
61 | $stat[8] = $pwd[8]; # atime unreliable on windows |
61 | print +(join ":", @pwd) eq (join ":", @stat) ? "ok" : "not ok", " 9\n"; |
62 | print +(join ":", @pwd) eq (join ":", @stat) ? "ok" : "not ok", " 9 # @pwd == @stat\n"; |
62 | }; |
63 | }; |
63 | |
64 | |
64 | pcb; |
65 | pcb; |
65 | |
66 | |
66 | aio_close *PWD, sub { |
67 | aio_close *PWD, sub { |