From: Paul Green <Paul.Green@stratus.com>
Date: Tue, 12 Mar 2002 11:00:00 +0000 (-0500)
Subject: perl/lib/File/stat.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=659293e7d4ba44b453d05b6b3c67d48aae91bc49;p=p5sagit%2Fp5-mst-13.2.git

perl/lib/File/stat.t
   Message-Id: <200203121602.LAA29760@mailhub1.stratus.com>

p4raw-id: //depot/perl@15199
---

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 $!;