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
authorBrad Gilbert <b2gills@gmail.com>
Tue, 7 Dec 2010 23:13:05 +0000 (17:13 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 8 Dec 2010 19:17:14 +0000 (11:17 -0800)
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;
 }