More consting goodness

[p5sagit/p5-mst-13.2.git] / t / io / fs.t

diff --git a/t/io/fs.t b/t/io/fs.t
index eb305a9..30423f1 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -373,4 +373,4 @@ if ($^O eq 'VMS') {
 ok(-d 'tmp1', "rename on directories working");
 
 # need to remove 'tmp' if rename() in test 28 failed!
-END { rmdir 'tmp1'; rmdir 'tmp'; unlink "Iofs.tmp"; }
+END { rmdir 'tmp1'; rmdir 'tmp'; 1 while unlink "Iofs.tmp"; }