Merge f19ab1d into 158b05f

Perl · Jul 6, 2021 · e39de50 · e39de50
2 parents 158b05f + f19ab1d
commit e39de50
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/lib/File/stat.pm b/lib/File/stat.pm
@@ -11,7 +11,7 @@ BEGIN { *warnif = \&warnings::warnif }
 
 our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-our $VERSION = '1.10';
+our $VERSION = '1.11';
 
 our @fields;
 our ( $st_dev, $st_ino, $st_mode,

diff --git a/lib/File/stat.t b/lib/File/stat.t
@@ -86,6 +86,10 @@ sub test_X_ops {
 
             if ($^O eq "VMS" && $op =~ /[rwxRWX]/) {
                 is($vwarn, 1, "warning about VMS ACLs $desc");
+            } elsif ($^O eq "haiku" && $op =~ /A/) {
+                # atime is not stored on Haiku BFS
+                # and stat always returns local time instead 
+                note("Not testing -A $desc_tail on Haiku");
             } else {
                 is($rv, eval "-$op \$file", "correct overload $desc")
                     unless $access;