diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-01-19 08:15:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-19 17:57:08 +0000 |
| commit | d9c1b26abddaac0119ca0b9e2da4fb6ca0e6af1a (patch) | |
| tree | 5320fb175107d9616978daf3355073e46ba76353 /ext/SDBM_File/sdbm.t | |
| parent | 75828062e812267d86f47b1848dee6b0da376c2d (diff) | |
| download | perl-d9c1b26abddaac0119ca0b9e2da4fb6ca0e6af1a.tar.gz | |
ext/SDBM_File/sdbm.t -- VOS fix
Message-Id: <200201191814.NAA09367@mailhub2.stratus.com>
p4raw-id: //depot/perl@14347
Diffstat (limited to 'ext/SDBM_File/sdbm.t')
| -rw-r--r-- | ext/SDBM_File/sdbm.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/SDBM_File/sdbm.t b/ext/SDBM_File/sdbm.t index f1a5c63169..f942b97d96 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)) { |