t/op/write.t cleanup after itself.

Message-ID: <20030728125419.GJ21044@windhund.schwern.org>

p4raw-id: //depot/perl@20264

diff --git a/t/op/write.t b/t/op/write.t
index 1e2f150..7132245 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -30,6 +30,7 @@ now @<<the@>>>> for all@|||||men to come @<<<<
 .
 
 open(OUT, '>Op_write.tmp') || die "Can't create Op_write.tmp";
+END { 1 while unlink 'Op_write.tmp' }
 
 $fox = 'foxiness';
 $good = 'good';