diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-01-23 08:23:17 -0600 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-01-24 15:10:55 +0000 |
| commit | 4e7ee149460a1e80f981e3148f5aa709e27ebacb (patch) | |
| tree | 3854a206443001d6bc318f386f25aa95190f85b2 /t/io/tell.t | |
| parent | 27bcc0a7e6b15b7b0d6f632d5f31918abd005ef4 (diff) | |
| download | perl-4e7ee149460a1e80f981e3148f5aa709e27ebacb.tar.gz | |
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
Diffstat (limited to 't/io/tell.t')
| -rwxr-xr-x | t/io/tell.t | 2 |
1 files changed, 1 insertions, 1 deletions
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:$!"; |