In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/b3259969157a58bdc63ef35e4469b04ce5f4aec3?hp=232b691f3c51aaff6228f1358b7c7dbc09b41b14>
- Log ----------------------------------------------------------------- commit b3259969157a58bdc63ef35e4469b04ce5f4aec3 Author: James E Keenan <jkee...@cpan.org> Date: Wed Oct 31 19:03:19 2018 -0400 Handle OSes where filesystems can be mounted with 'noatime' option Adapted from http://cvsweb.netbsd.org/bsdweb.cgi/pkgsrc/lang/perl5/patches/patch-ta?rev=1.6&content-type=text/x-cvsweb-markup For readability, change a 'skip' whose block lacked tests to be skipped with a simple 'pass'. For RT 132663 ----------------------------------------------------------------------- Summary of changes: t/io/fs.t | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/t/io/fs.t b/t/io/fs.t index ecab714846..90bcc31617 100644 --- a/t/io/fs.t +++ b/t/io/fs.t @@ -498,6 +498,9 @@ sub check_utime_result { pass('mtime: granularity test'); } else { + # Operating systems whose filesystems may be mounted with the noatime option + # RT 132663 + my %noatime_oses = map { $_ => 1 } ( qw| haiku netbsd | ); if ($^O =~ /\blinux\b/i) { note("# Maybe stat() cannot get the correct atime, ". "as happens via NFS on linux?"); @@ -518,10 +521,8 @@ sub check_utime_result { is( $atime, $ut + 1, 'atime: VMS' ); is( $mtime, $ut + $delta, 'mtime: VMS' ); } - elsif ($^O eq 'haiku') { - SKIP: { - skip "atime not updated", 1; - } + elsif ($noatime_oses{$^O}) { + pass("atime not updated"); is($mtime, 500000001, 'mtime'); } else { -- Perl5 Master Repository