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
