diff options
Diffstat (limited to 't/lib/gdbm.t')
| -rwxr-xr-x | t/lib/gdbm.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t index 62bb936ff1..6a2d5fa54e 100755 --- a/t/lib/gdbm.t +++ b/t/lib/gdbm.t @@ -26,7 +26,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++; } |