From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 18 Aug 2003 01:34:34 +0000 (-0700)
Subject: Re: [PATCH] Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33869856bc668ad896e517e1aa0c9d977d5b2676;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index f6a91c2..41df26b 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 0361a0a..7443fe0 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;