randyk 2003/12/16 10:13:04
Modified: t/response/TestAPR finfo.pm Log: On Win32, skip atime test, which doesn't work on NTFS file systems. Reported by Steve Hay. Revision Changes Path 1.7 +2 -1 modperl-2.0/t/response/TestAPR/finfo.pm Index: finfo.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- finfo.pm 1 Dec 2003 19:16:51 -0000 1.6 +++ finfo.pm 16 Dec 2003 18:13:04 -0000 1.7 @@ -56,8 +56,9 @@ undef, $size, $atime, $mtime, $ctime) = stat $file; # skip certain tests on Win32 (and others?) + # atime is wrong on NTFS, but OK on FAT32 my %skip = WIN32 ? - (map {$_ => 1} qw(device inode user group) ) : (); + (map {$_ => 1} qw(device inode user group atime) ) : (); # compare stat fields between perl and apr_stat {