On Tue, Aug 12, 2003 a.d., John Peacock wrote:
> POD2HTMD.TMP;6
> POD2HTMD.TMP;5
> POD2HTMD.TMP;4
> POD2HTMI.TMP;6
> POD2HTMI.TMP;5
> POD2HTMI.TMP;4
I begin to learn a bit about VMS :-)
I think Pod::Html is the ugly (not tested!).
--- /arc/bleadperl/lib/Pod/Html.pm 2003-04-02 22:56:17.000000000 +0300
+++ ./lib/Pod/Html.pm 2003-08-13 01:19:51.000000000 +0300
@@ -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);
+ }
}
Regards,
Adi
