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/io/argv.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/io')

diff --git a/t/io/argv.t b/t/io/argv.t
index f2f3245b10..33c4f1a8e7 100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -127,6 +127,6 @@ unlink "Io_argv3.tmp";
 **PROG**
 
 END {
-    unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
+    1 while unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak',
 	'Io_argv2.tmp', 'Io_argv2.tmp_bak', 'Io_argv3.tmp';
 }
-- 
cgit v1.2.1