From: Paul Green <Paul.Green@stratus.com>
Date: Sat, 19 Jan 2002 14:30:00 +0000 (-0500)
Subject: lib/AnyDBM_File.t -- VOS fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2825d0017d7ab4a0647a1138570d4e7eee6edd37;p=p5sagit%2Fp5-mst-13.2.git

lib/AnyDBM_File.t -- VOS fix
Message-Id: <200201191932.OAA05601@mailhub1.stratus.com>

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

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
index 7d40f00..7bb1e49 100755
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -43,7 +43,7 @@ SKIP:
                       if ($Is_Dosish || $^O eq 'MacOS') ;
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
      $blksize,$blocks) = stat($Dfile);
-    ok(($mode & 0777) == 0640 , "File permissions");
+    ok(($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) , "File permissions");
 }
 
 while (($key,$value) = each(%h)) {