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

-John
wb8...@qsl.net
Personal Opinion Only

--- /rsync_root/perl/lib/perl5db.t      Fri Dec 19 03:14:10 2008
+++ lib/perl5db.t       Mon May 25 16:02:21 2009
@@ -85,5 +85,5 @@
 # clean up.
 
 END {
-    unlink qw(.perldb db.out);
+    1 while unlink qw(.perldb db.out);
 }

Reply via email to