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

-John
wb8...@qsl.net
Personal Opinion Only
--- /rsync_root/perl/lib/Pod/t/text-options.t   Fri Dec 19 03:14:10 2008
+++ lib/Pod/t/text-options.t    Mon May 25 16:23:28 2009
@@ -69,7 +69,7 @@
         $output = <TMP>;
     }
     close TMP;
-    unlink ('tmp.pod', 'out.tmp');
+    1 while unlink ('tmp.pod', 'out.tmp');
     my $expected = '';
     while (<DATA>) {
         last if $_ eq "###\n";

Reply via email to