Fix two local *ISA bugs

[perl5.git] / lib / AnyDBM_File.t

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
old mode 100755 (executable)
new mode 100644 (file)
index cb9eee9..63fb2d8
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -14,24 +14,25 @@ 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');
 
-unlink <Op_dbmx*>;
+my $filename = "Any_dbmx$$";
+unlink <"$filename*">;
 
 umask(0);
 
-ok( tie(%h,AnyDBM_File,'Op_dbmx', O_RDWR|O_CREAT, 0640), "Tie");
+ok( tie(%h,AnyDBM_File,"$filename", O_RDWR|O_CREAT, 0640), "Tie");
 
-$Dfile = "Op_dbmx.pag";
+$Dfile = "$filename.pag";
 if (! -e $Dfile) {
-       ($Dfile) = <Op_dbmx*>;
+       ($Dfile) = <$filename*>;
 }
 
 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");
@@ -63,7 +64,7 @@ $h{'goner2'} = 'snork';
 delete $h{'goner2'};
 
 untie(%h);
-ok(tie(%h,AnyDBM_File,'Op_dbmx', O_RDWR, 0640),"Re-tie hash");
+ok(tie(%h,AnyDBM_File,"$filename", O_RDWR, 0640),"Re-tie hash");
 
 $h{'j'} = 'J';
 $h{'k'} = 'K';
@@ -151,7 +152,7 @@ SKIP:
 untie %h;
 
 if ($^O eq 'VMS') {
-  unlink 'Op_dbmx.sdbm_dir', $Dfile;
+  unlink "$filename.sdbm_dir", $Dfile;
 } else {
-  unlink 'Op_dbmx.dir', $Dfile;  
+  unlink "$filename.dir", $Dfile;
 }