diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-08-17 18:28:21 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-18 04:53:22 +0000 |
| commit | 383e43c729f9f94a92e4c0cd777de8d2608751de (patch) | |
| tree | cea61d61001cb1f465eec5aa382b6a5e0a15caad | |
| parent | 39741d738e6fb2ee9de47dcf0299296483fa68f1 (diff) | |
| download | perl-383e43c729f9f94a92e4c0cd777de8d2608751de.tar.gz | |
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
| -rw-r--r-- | lib/Pod/Html.pm | 4 | ||||
| -rw-r--r-- | lib/Pod/t/pod2html-lib.pl | 5 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 1d9be88b6f..f6a91c2178 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 f61392b0db..0361a0a7ee 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; |