[PATCH: 6698] tidy up the temp files left by peek tests on VMS

[Peter Prymmer]

VMS provides automatic file versioning (definitely a feature :-)
This patch provides a cleanup idiom that appears in perldoc
among other places:

--- t/lib/peek.t.orig   Tue Aug 15 10:55:57 2000
+++ t/lib/peek.t        Fri Aug 18 17:40:06 2000
@@ -308,5 +308,5 @@
     EGV = $ADDR\\t"a"');
 
 END {
-  unlink("peek$$");
+  1 while unlink("peek$$");
 }
End of Patch.

Peter Prymmer