patch@2009-05-25.21:50:08 perl5db.t leaves db.out behind on VMS

This patch fixes lib/perl5db.t to not leave a db.out file behind on VMS
after a test run.

-John
wb8tyw@qsl.net
Personal Opinion Only

Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>

diff --git a/lib/perl5db.t b/lib/perl5db.t
index fd65ef9..67b5fda 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -85,5 +85,5 @@ like($contents, qr/sub factorial/,
 # clean up.
 
 END {
-    unlink qw(.perldb db.out);
+    1 while unlink qw(.perldb db.out);
 }