From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 28 Apr 2002 16:04:23 +0000 (+0000)
Subject: Be tidy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd5e0f48cb0779f625af5d8146ee1d6c56f31dcb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
 }