This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
authorMichael G. Schwern <schwern@pobox.com>
Mon, 18 Aug 2003 01:34:34 +0000 (18:34 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 18 Aug 2003 08:21:36 +0000 (08:21 +0000)
Message-ID: <20030818083433.GB823@windhund.schwern.org>

p4raw-id: //depot/perl@20753

lib/Pod/Html.pm
lib/Pod/t/pod2html-lib.pl

index f6a91c2..41df26b 100644 (file)
@@ -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);
     }
index 0361a0a..7443fe0 100644 (file)
@@ -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;