diff options
| -rw-r--r-- | lib/Pod/Html.pm | 13 | ||||
| -rw-r--r-- | lib/Pod/t/pod2html-lib.pl | 5 |
2 files changed, 8 insertions, 10 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index f6a91c2178..41df26ba46 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -204,9 +204,8 @@ This program is distributed under the Artistic License. my $cachedir = "."; # The directory to which item and directory # caches will be written. -my $cache_ext = $^O eq 'VMS' ? ".tmp" : ".x~~"; -my $dircache = "pod2htmd$cache_ext"; -my $itemcache = "pod2htmi$cache_ext"; +my $dircache = "pod2htmd.tmp"; +my $itemcache = "pod2htmi.tmp"; my @begin_stack = (); # begin/end stack @@ -255,8 +254,8 @@ my %local_items = (); # local items - avoid destruction of %items my $Is83; # is dos with short filenames (8.3) sub init_globals { -$dircache = "pod2htmd$cache_ext"; -$itemcache = "pod2htmi$cache_ext"; +$dircache = "pod2htmd.tmp"; +$itemcache = "pod2htmi.tmp"; @begin_stack = (); # begin/end stack @@ -695,8 +694,8 @@ sub parse_command_line { warn "Flushing item and directory caches\n" if $opt_verbose && defined $opt_flush; - $dircache = "$cachedir/pod2htmd$cache_ext"; - $itemcache = "$cachedir/pod2htmi$cache_ext"; + $dircache = "$cachedir/pod2htmd.tmp"; + $itemcache = "$cachedir/pod2htmi.tmp"; 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 0361a0a7ee..7443fe099f 100644 --- a/lib/Pod/t/pod2html-lib.pl +++ b/lib/Pod/t/pod2html-lib.pl @@ -55,9 +55,8 @@ sub convert_n_test { # pod2html creates these 1 while unlink $outfile; - my $cache_ext = $^O eq 'VMS' ? ".tmp" : ".x~~"; - 1 while unlink "pod2htmd$cache_ext"; - 1 while unlink "pod2htmi$cache_ext"; + 1 while unlink "pod2htmd.tmp"; + 1 while unlink "pod2htmi.tmp"; } 1; |