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
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
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);
}
# 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;