Replaced '1 while unlink' with 'unlink_all' in t/io/perlio.t

diff --git a/t/io/perlio.t b/t/io/perlio.t
index b9f00a7..8b1cff3 100644 (file)
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -105,14 +105,14 @@ ok(close($utffh));
 
       my $filename = find_filename($x, $perlio_tmp_file_glob);
       is($filename, undef, "No tmp files leaked");
-      unlink $filename if defined $filename;
+      unlink_all $filename if defined $filename;
 
       mkdir $ENV{TMPDIR};
       ok(open(my $x,"+<",undef), 'TMPDIR honored by magic temp file via 3 arg open with undef - works if TMPDIR points to an existent dir');
 
       $filename = find_filename($x, $perlio_tmp_file_glob);
       is($filename, undef, "No tmp files leaked");
-      unlink $filename if defined $filename;
+      unlink_all $filename if defined $filename;
     }
 }
 
@@ -198,9 +198,9 @@ close ($no_perlio);
 
 
 END {
-    1 while unlink $txt;
-    1 while unlink $bin;
-    1 while unlink $utf;
+    unlink_all $txt;
+    unlink_all $bin;
+    unlink_all $utf;
     rmdir $nonexistent;
 }