Be tidy.

p4raw-id: //depot/perl@16248

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index fd1b30c..a15ff71 100644 (file)
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -56,7 +56,7 @@ is($line,"\x{FFFD}0.02\n","Unicode replacement char");
 close($fh);
 
 END {
-#   unlink($file);
+    1 while unlink($file);
 }