From 4e7ee149460a1e80f981e3148f5aa709e27ebacb Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 23 Jan 2005 08:23:17 -0600
Subject: assorted tempfile clean-up in the test suite From: "Craig A. Berry"
 <craigberry@mac.com> Message-ID: <41F407B5.7020106@mac.com>

p4raw-id: //depot/perl@23874
---
 t/io/tell.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/io/tell.t')

diff --git a/t/io/tell.t b/t/io/tell.t
index 1e1f661cd1..dcb4ee9a29 100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -100,7 +100,7 @@ if (tell(ether) == -1)  { print "ok 23\n"; } else { print "not ok 23\n"; }
 
 my $written = "tell_write.txt";
 
-END { unlink($written) }
+END { 1 while unlink($written) }
 
 close($tst);
 open($tst,">$written")  || die "Cannot open $written:$!";
-- 
cgit v1.2.1