From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 28 Jul 2003 05:54:19 +0000 (-0700)
Subject: t/op/write.t cleanup after itself.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19f4d710e75aab05be98c9d4afa2827e3e7ff764;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';