mktables: Add comment

[perl5.git] / lib / AnyDBM_File.t

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
index 43405b9..d061aba 100644 (file)
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -14,7 +14,7 @@ use Fcntl;
 
 $Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' ||
              $^O eq 'NetWare' || $^O eq 'dos' ||
-             $^O eq 'os2' || $^O eq 'mint' ||
+             $^O eq 'os2' ||
              $^O eq 'cygwin');
 
 my $filename = "Any_dbmx$$";
@@ -32,10 +32,10 @@ if (! -e $Dfile) {
 SKIP:
 {
     skip( "different file permission semantics",1)
-                      if ($Is_Dosish || $^O eq 'MacOS') ;
+                      if $Is_Dosish;
     ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
      $blksize,$blocks) = stat($Dfile);
-    ok(($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) , "File permissions");
+    ok(($mode & 0777) == 0640 , "File permissions");
 }
 
 while (($key,$value) = each(%h)) {