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

ext/SDBM_File/sdbm.t -- VOS fix
Message-Id: <200201191814.NAA09367@mailhub2.stratus.com>

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

diff --git a/ext/SDBM_File/sdbm.t b/ext/SDBM_File/sdbm.t
index f1a5c63..f942b97 100644
--- a/ext/SDBM_File/sdbm.t
+++ b/ext/SDBM_File/sdbm.t
@@ -46,7 +46,7 @@ if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' ||
 else {
     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
      $blksize,$blocks) = stat($Dfile);
-    print (($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n");
+    print (($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) ? "ok 2\n" : "not ok 2\n");
 }
 my $i = 0;
 while (my ($key,$value) = each(%h)) {