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;