--- IO-AIO/t/01_stat.t	2008/04/16 16:45:18	1.4
+++ IO-AIO/t/01_stat.t	2011/07/17 04:20:04	1.5
@@ -55,7 +55,10 @@
 
 aio_stat *PWD, sub {
    print -f _ ? "ok" : "not ok", " 8\n";
-   print +(join ":", @pwd) eq (join ":", stat _) ? "ok" : "not ok", " 9\n";
+   my @stat = stat _;
+   $stat[0] = $pwd[0]; # dev
+   $stat[6] = $pwd[6]; # rdev
+   print +(join ":", @pwd) eq (join ":", @stat) ? "ok" : "not ok", " 9\n";
 };
 
 pcb;