From: John E. Malmberg <wb8tyw@qsl.net>
Date: Tue, 26 May 2009 04:26:26 +0000 (-0500)
Subject: patch@2009-05-25.21:50:08 perl5db.t leaves db.out behind on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7cd487314be59fe3c6b1f2962a6a8713952980c2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
 }