Change 15199: [PATCH] perl/lib/File/stat.t

[Abhijit Menon-Sen]

Change 15199 by ams@lustre on 2002/03/12 15:04:43

           Subject: [PATCH] perl/lib/File/stat.t
           From: [EMAIL PROTECTED]
           Date: Tue, 12 Mar 02 11:00 est
           Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/File/stat.t#8 edit

Differences ...

==== //depot/perl/lib/File/stat.t#8 (text) ====
Index: perl/lib/File/stat.t
--- perl/lib/File/stat.t.~1~    Tue Mar 12 08:15:05 2002
+++ perl/lib/File/stat.t        Tue Mar 12 08:15:05 2002
@@ -67,9 +67,15 @@
                '... 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 $!;
End of Patch.