diff options
Diffstat (limited to 'lib/Pod')
| -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; |