diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-08-17 18:34:34 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-18 08:21:36 +0000 |
| commit | 33869856bc668ad896e517e1aa0c9d977d5b2676 (patch) | |
| tree | f716f27340897d13bb1e4cd13923f44c61747bed /lib/Pod/Html.pm | |
| parent | c063e98f8c69b3768b03c1dc05dae8a9c315cd4b (diff) | |
| download | perl-33869856bc668ad896e517e1aa0c9d977d5b2676.tar.gz | |
Re: [PATCH] Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
Message-ID: <20030818083433.GB823@windhund.schwern.org>
p4raw-id: //depot/perl@20753
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 13 |
1 files changed, 6 insertions, 7 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); } |