From 659293e7d4ba44b453d05b6b3c67d48aae91bc49 Mon Sep 17 00:00:00 2001 From: Paul Green Date: Tue, 12 Mar 2002 06:00:00 -0500 Subject: [PATCH] perl/lib/File/stat.t Message-Id: <200203121602.LAA29760@mailhub1.stratus.com> p4raw-id: //depot/perl@15199 --- lib/File/stat.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lib/File/stat.t b/lib/File/stat.t index 3c867de..7a114ce 100644 --- a/lib/File/stat.t +++ b/lib/File/stat.t @@ -67,9 +67,15 @@ SKIP: { '... and filehandle in another package' ); close STAT; +# VOS open() updates atime; ignore this error (posix-975). + my $stat3 = $stat2; + if ($^O eq 'vos') { + $$stat3[8] = $$stat[8]; + } + main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32'; - main::is( "@$stat", "@$stat2", '... and must match normal stat' ); + main::is( "@$stat", "@$stat3", '... and must match normal stat' ); } local $!; -- 2.7.4