From 98a392ecbb7845edc25cfe254ee96c1a58aa132c Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 20 Jul 2003 05:43:32 -0500
Subject: 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
---
 t/op/stat.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 't/op/stat.t')

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;
+}
-- 
cgit v1.2.1