diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1996-10-09 22:30:38 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-09 22:30:38 -0400 |
| commit | 053b5721b2dcbead7dbf8d1629e6a9eeaf4b09ae (patch) | |
| tree | 29d8d7abf84632d6d4be080ada08ecddff7a14e0 /t/lib/anydbm.t | |
| parent | 6bf554b4f0803e34bfc05c3750580299121acab2 (diff) | |
| download | perl-053b5721b2dcbead7dbf8d1629e6a9eeaf4b09ae.tar.gz | |
perl 5.003_07: t/lib/anydbm.t t/lib/db-btree.t t/lib/db-hash.t t/lib/db-recno.t t/lib/gdbm.t t/lib/ndbm.t t/lib/odbm.t t/lib/sdbm.t
Date: Wed, 9 Oct 1996 22:30:38 -0400 (EDT)
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
File mode under OS/2 is not what you expect. However, this has
nothing to do with databases, _and_ there is a test
for this in stat.t (which dutifully fails). There is
no point to consider this behaviour as a bug in
database code.
So OS/2 is special-cased in these tests.
Diffstat (limited to 't/lib/anydbm.t')
| -rwxr-xr-x | t/lib/anydbm.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t index 957aadafba..80b39df141 100755 --- a/t/lib/anydbm.t +++ b/t/lib/anydbm.t @@ -23,7 +23,7 @@ if (! -e $Dfile) { } ($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 'os2' ? 0666 : 0640) ? "ok 2\n" : "not ok 2\n"); while (($key,$value) = each(%h)) { $i++; } |