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
{
