Change 14359: [PATCH] lib/AnyDBM_File.t -- VOS fix

[Jarkko Hietaniemi]

Change 14359 by jhi@alpha on 2002/01/20 17:09:40

        Subject: [PATCH] lib/AnyDBM_File.t -- VOS fix         
        From: [EMAIL PROTECTED]
        Date: Sat, 19 Jan 02 14:30 est
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/AnyDBM_File.t#5 edit

Differences ...

==== //depot/perl/lib/AnyDBM_File.t#5 (xtext) ====
Index: perl/lib/AnyDBM_File.t
--- perl/lib/AnyDBM_File.t.~1~  Sun Jan 20 10:15:05 2002
+++ perl/lib/AnyDBM_File.t      Sun Jan 20 10:15:05 2002
@@ -43,7 +43,7 @@
                       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)) {
End of Patch.