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 (file)
--- 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$$");
 }