X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FDB_File%2Ft%2Fdb-hash.t;h=bd6fb586b776fc1a3615964414c49f9039df0e0e;hb=13d11c6e852aaac8eff257adcc793baa531c16b1;hp=1d13dc09410c40523d7f46bb1b362bdcc8ccf830;hpb=0bf2e7072c2c1360a32d348a7c800f40c1108f8a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/DB_File/t/db-hash.t b/ext/DB_File/t/db-hash.t
index 1d13dc0..bd6fb58 100755
--- a/ext/DB_File/t/db-hash.t
+++ b/ext/DB_File/t/db-hash.t
@@ -110,7 +110,7 @@ ok(15, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat($Dfile);
 ok(16, ($mode & 0777) == (($^O eq 'os2' || $^O eq 'MacOS') ? 0666 : 0640) ||
-   $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare');
+   $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'NetWare');
 
 my ($key, $value, $i);
 while (($key,$value) = each(%h)) {