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
           {
  
  
  

Reply via email to