diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-01-19 09:30:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-20 17:09:40 +0000 |
| commit | 2825d0017d7ab4a0647a1138570d4e7eee6edd37 (patch) | |
| tree | 3a07498949b0e835bae161aaa996cdef00b6631b /lib/AnyDBM_File.t | |
| parent | 8ffed148564bb186fdc2e73d4142aa04f590a7e7 (diff) | |
| download | perl-2825d0017d7ab4a0647a1138570d4e7eee6edd37.tar.gz | |
lib/AnyDBM_File.t -- VOS fix
Message-Id: <200201191932.OAA05601@mailhub1.stratus.com>
p4raw-id: //depot/perl@14359
Diffstat (limited to 'lib/AnyDBM_File.t')
| -rwxr-xr-x | lib/AnyDBM_File.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t index 7d40f00019..7bb1e49458 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)) { |