From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 17 Aug 2003 23:28:21 +0000 (-0500)
Subject: Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=383e43c729f9f94a92e4c0cd777de8d2608751de;p=p5sagit%2Fp5-mst-13.2.git

Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F4055E5.2070407@mac.com>

p4raw-id: //depot/perl@20750
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 1d9be88..f6a91c2 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -697,7 +697,9 @@ sub parse_command_line {
 	if $opt_verbose && defined $opt_flush;
     $dircache = "$cachedir/pod2htmd$cache_ext";
     $itemcache = "$cachedir/pod2htmi$cache_ext";
-    unlink($dircache, $itemcache) if defined $opt_flush;
+    if (defined $opt_flush) {
+	1 while unlink($dircache, $itemcache);
+    }
 }
 
 
diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl
index f61392b..0361a0a 100644
--- a/lib/Pod/t/pod2html-lib.pl
+++ b/lib/Pod/t/pod2html-lib.pl
@@ -55,8 +55,9 @@ sub convert_n_test {
 
     # pod2html creates these
     1 while unlink $outfile;
-    1 while unlink "pod2htmd.x~~";
-    1 while unlink "pod2htmi.x~~";
+    my $cache_ext = $^O eq 'VMS' ? ".tmp" : ".x~~";
+    1 while unlink "pod2htmd$cache_ext";
+    1 while unlink "pod2htmi$cache_ext";
 }
 
 1;