This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Replaced '1 while unlink' with 'unlink_all' in t/op/stat.t
[perl5.git] / t / op / stat.t
index bc05112..8d1b9f2 100644 (file)
@@ -46,7 +46,7 @@ my $tmpfile = tempfile();
 my $tmpfile_link = tempfile();
 
 chmod 0666, $tmpfile;
-1 while unlink $tmpfile;
+unlink_all $tmpfile;
 open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
 close FOO;
 
@@ -551,5 +551,5 @@ SKIP: {
 
 END {
     chmod 0666, $tmpfile;
-    1 while unlink $tmpfile;
+    unlink_all $tmpfile;
 }