Get t/uni/cache.t working under minitest

[perl5.git] / t / op / sysio.t

diff --git a/t/op/sysio.t b/t/op/sysio.t
index d0f71ae..25d7197 100644 (file)
--- a/t/op/sysio.t
+++ b/t/op/sysio.t
@@ -14,8 +14,7 @@ $reopen = ($^O eq 'VMS' ||
            $^O eq 'os2' ||
            $^O eq 'MSWin32' ||
            $^O eq 'NetWare' ||
-           $^O eq 'dos' ||
-          $^O eq 'mpeix');
+           $^O eq 'dos');
 
 $x = 'abc';
 
@@ -209,7 +208,7 @@ ok(not defined sysseek(I, -1, 1));
 
 close(I);
 
-unlink $outfile;
+unlink_all $outfile;
 
 # Check that utf8 IO doesn't upgrade the scalar
 open(I, ">$outfile") || die "sysio.t: cannot write $outfile: $!";
@@ -232,7 +231,7 @@ eval {syswrite I, 2;};
 is($@, '');
 
 close(I);
-unlink $outfile;
+unlink_all $outfile;
 
 chdir('..');