diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-07-20 05:43:32 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2003-07-21 14:26:43 +0000 |
| commit | 98a392ecbb7845edc25cfe254ee96c1a58aa132c (patch) | |
| tree | e1d960745726ba3913486194cb9ee57260c41bf4 /t/op/stat.t | |
| parent | 42bc3d67f53713d43d4feb8de9def128eb32d283 (diff) | |
| download | perl-98a392ecbb7845edc25cfe254ee96c1a58aa132c.tar.gz | |
Re: [PATCH] test clean-up for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F1AB8A4.2070207@mac.com>
p4raw-id: //depot/perl@20175
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 89046c364b..69caf8c68a 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -40,7 +40,7 @@ my $tmpfile = 'Op_stat.tmp'; my $tmpfile_link = $tmpfile.'2'; -unlink $tmpfile; +1 while unlink $tmpfile; open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!"); close FOO; @@ -426,3 +426,7 @@ SKIP: { '-l _ croaks after -T _' ); unlink $linkname or print "# unlink $linkname failed: $!\n"; } + +END { + 1 while unlink $tmpfile; +} |