[email protected]:50:08 text-options.t file cleanup on VMS

"John E. Malmberg" <[email protected]> Mon, 25 May 2009 23:47:34 -0500

Newsgroups	gmane.comp.lang.perl.ports.vms,gmane.comp.lang.perl.perl5.porters
Message-ID	<[email protected]>

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

-John
[email protected]
Personal Opinion Only

text-options_t.gdiff (text/plain, 350 B)

--- /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";