diff options
Diffstat (limited to 't/lib/anydbm.t')
| -rwxr-xr-x | t/lib/anydbm.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t index 52ab22b13e..eeec2caca9 100755 --- a/t/lib/anydbm.t +++ b/t/lib/anydbm.t @@ -15,7 +15,8 @@ print "1..12\n"; unlink <Op.dbmx*>; umask(0); -print (tie(%h,AnyDBM_File,'Op.dbmx', O_RDWR|O_CREAT, 0640) ? "ok 1\n" : "not ok 1\n"); +print (tie(%h,AnyDBM_File,'Op.dbmx', O_RDWR|O_CREAT, 0640) + ? "ok 1\n" : "not ok 1\n"); $Dfile = "Op.dbmx.pag"; if (! -e $Dfile) { @@ -23,7 +24,8 @@ if (! -e $Dfile) { } ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat($Dfile); -print (($mode & 0777) == ($^O eq 'os2' ? 0666 : 0640) ? "ok 2\n" : "not ok 2\n"); +print (($mode & 0777) == ($^O eq 'os2' ? 0666 : 0640) || $^O eq 'amigaos' + ? "ok 2\n" : "not ok 2\n"); while (($key,$value) = each(%h)) { $i++; } |