From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 18 Aug 2000 17:54:10 +0000 (-0700)
Subject: tidy up the temp files left by peek tests on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92e5451f6c185840d54cb52c79f90b7f2cad6b74;p=p5sagit%2Fp5-mst-13.2.git

tidy up the temp files left by peek tests on VMS
Message-ID: <Pine.OSF.4.10.10008181751350.322420-100000@aspara.forte.com>
cc: vmsperl@perl.org

p4raw-id: //depot/perl@6711
---

diff --git a/t/lib/peek.t b/t/lib/peek.t
index b51287a..7eed46d 100644
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -308,5 +308,5 @@ do_test(17,
     EGV = $ADDR\\t"a"');
 
 END {
-  unlink("peek$$");
+  1 while unlink("peek$$");
 }