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

patch@2009-05-25.21:50:08 text-options.t file cleanup on VMS

This patch fixes lib/Pod/text-options.t to not leave tmp.pod and out.tmp
files behind on VMS.

-John
wb8tyw@qsl.net
Personal Opinion Only

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

diff --git a/lib/Pod/t/text-options.t b/lib/Pod/t/text-options.t
index e2146c2..8a115d8 100644
--- a/lib/Pod/t/text-options.t
+++ b/lib/Pod/t/text-options.t
@@ -69,7 +69,7 @@ while (<DATA>) {
         $output = <TMP>;
     }
     close TMP;
-    unlink ('tmp.pod', 'out.tmp');
+    1 while unlink ('tmp.pod', 'out.tmp');
     my $expected = '';
     while (<DATA>) {
         last if $_ eq "###\n";