X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fanydbm.t;h=a38b5f680e84616c5810a357d99768a7b750a077;hb=8736538c3cff6585c95a01b990d3b3a9e5d5744d;hp=4d33e2233a914b994858213c7a9456341694da3a;hpb=93430cb427caeba01ba89b008008b46159a7c165;p=p5sagit%2Fp5-mst-13.2.git diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t index 4d33e22..a38b5f6 100755 --- a/t/lib/anydbm.t +++ b/t/lib/anydbm.t @@ -12,6 +12,9 @@ use Fcntl; print "1..12\n"; +$Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' or $^O eq 'dos' or + $^O eq 'os2' or $^O eq 'mint' or $^O =~ /cygwin/); + unlink ; umask(0); @@ -22,7 +25,7 @@ $Dfile = "Op_dbmx.pag"; if (! -e $Dfile) { ($Dfile) = ; } -if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') { +if ($Is_Dosish) { print "ok 2 # Skipped: different file permission semantics\n"; } else {