This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dragonfly BSD's default filesystem is mounted noatime by default
authorTony Cook <tony@develop-help.com>
Mon, 26 Oct 2020 16:44:14 +0000 (16:44 +0000)
committerTony Cook <tony@develop-help.com>
Thu, 5 Nov 2020 04:47:30 +0000 (15:47 +1100)
dist/Time-HiRes/t/utime.t
t/io/fs.t

index e2399b8..34519b3 100644 (file)
@@ -135,6 +135,7 @@ if ($^O eq 'cygwin') {
 print "# \$^O = $^O, atime = $atime, mtime = $mtime\n";
 
 my $skip_atime = $^O eq 'netbsd' && tempfile_has_noatime_mount();
+$skip_atime = 1 if $^O eq 'dragonfly'; # noatime by default
 
 if ($skip_atime) {
     printf("# Skipping atime tests because tempfiles seem to be in a filesystem mounted with 'noatime' ($^O)\n'");
index 90bcc31..a36fbe8 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -500,7 +500,7 @@ sub check_utime_result {
         else {
             # Operating systems whose filesystems may be mounted with the noatime option
             # RT 132663
-            my %noatime_oses = map { $_ => 1 } ( qw| haiku netbsd | );
+            my %noatime_oses = map { $_ => 1 } ( qw| haiku netbsd dragonfly | );
             if ($^O =~ /\blinux\b/i) {
                 note("# Maybe stat() cannot get the correct atime, ".
                     "as happens via NFS on linux?");