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

[Craig A. Berry]

Enache Adrian wrote:
On Wed, Aug 13, 2003 a.d., I wrote:

I think Pod::Html is the ugly (not tested!).


Look also at lib/Pod/t/pod2html-lib.pl:56:
Thanks, Adi. I'm at long last following up. The attached patch follows
your suggestions and I can confirm it does in fact clean up the
temporary files that were getting left lying around.
--- lib/Pod/Html.pm;-0  Mon Apr  7 00:29:47 2003
+++ lib/Pod/Html.pm     Sun Aug 17 23:10:25 2003
@@ -697,7 +697,9 @@
        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);
+    }
 }
 
 
--- lib/Pod/t/pod2html-lib.pl;-0        Tue May 20 16:20:58 2003
+++ lib/Pod/t/pod2html-lib.pl   Sun Aug 17 23:14:32 2003
@@ -55,8 +55,9 @@
 
     # 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;