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

1 files changed, 1 insertions, 1 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index ee32f63b54..64fcc5b622 100644
--- 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";
 }