Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F4055E5.2070407@mac.com>

p4raw-id: //depot/perl@20750

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 1d9be88..f6a91c2 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -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);
+    }
 }
 
 

diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl
index f61392b..0361a0a 100644 (file)
--- a/lib/Pod/t/pod2html-lib.pl
+++ b/lib/Pod/t/pod2html-lib.pl
@@ -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;