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

diff --git a/t/io/fs.t b/t/io/fs.t
index ee32f63..64fcc5b 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -424,7 +424,7 @@ SKIP: {
     # this works on win32 only, because fs isn't casesensitive
     ok(-e 'X', "rename working");
 
-    1 while unlink 'X';
+    unlink_all 'X';
     chdir $wd || die "Can't cd back to $wd";
 }