Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
Craig A. Berry [Sun, 17 Aug 2003 23:28:21 +0000 (18:28 -0500)]
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F4055E5.2070407@mac.com>

p4raw-id: //depot/perl@20750

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

index 1d9be88..f6a91c2 100644 (file)
@@ -697,7 +697,9 @@ sub parse_command_line {
        if $opt_verbose && defined $opt_flush;
     $dircache = "$cachedir/pod2htmd$cache_ext";
     $itemcache = "$cachedir/pod2htmi$cache_ext";
-    unlink($dircache, $itemcache) if defined $opt_flush;
+    if (defined $opt_flush) {
+       1 while unlink($dircache, $itemcache);
+    }
 }
 
 
index f61392b..0361a0a 100644 (file)
@@ -55,8 +55,9 @@ sub convert_n_test {
 
     # pod2html creates these
     1 while unlink $outfile;
-    1 while unlink "pod2htmd.x~~";
-    1 while unlink "pod2htmi.x~~";
+    my $cache_ext = $^O eq 'VMS' ? ".tmp" : ".x~~";
+    1 while unlink "pod2htmd$cache_ext";
+    1 while unlink "pod2htmi$cache_ext";
 }
 
 1;