Reduce default arguments for Testing:_prepare_argstable()

Touch-up t/htmlview.t

2 files changed, 5 insertions, 4 deletions

diff --git a/ext/Pod-Html/t/htmlview.t b/ext/Pod-Html/t/htmlview.t
index 56dcaa8f27..f73418bb56 100644
--- a/ext/Pod-Html/t/htmlview.t
+++ b/ext/Pod-Html/t/htmlview.t
@@ -27,6 +27,7 @@ $args = {
     description => "html rendering",
     expect => $expect_raw,
     p2h => {
+        podpath => 't',
         quiet  => 1,
     },
 };
diff --git a/ext/Pod-Html/t/lib/Testing.pm b/ext/Pod-Html/t/lib/Testing.pm
index e3aa62197e..084a84cd90 100644
--- a/ext/Pod-Html/t/lib/Testing.pm
+++ b/ext/Pod-Html/t/lib/Testing.pm
@@ -406,7 +406,10 @@ this key.  Required.
 
 Hash reference holding arguments passed to C<Pod::Html::pod2html()> (though
 without the leading double hyphens (C<-->).  See documentation for
-F<Pod::Html>.  Optional, but mostly necessary.
+F<Pod::Html>.  Optional, but mostly necessary.  In particular, if a F<.pod>
+file contains any C<LE<lt>E<gt>> tags, a C<podpath> element almost always
+needs to be supplied with a colon-delimited list of directories from which to
+begin a search for files containing POD.
 
 =item * C<debug>
 
@@ -496,9 +499,6 @@ sub _prepare_argstable {
     my %args_table = (
         infile      =>    $args->{infile},
         outfile     =>    $args->{outfile},
-        podpath     =>    't',
-        htmlroot    =>    '/',
-        podroot     =>    $args->{cwd},
     );
     my %no_arg_switches = map { $_ => 1 } @no_arg_switches;
     if (defined $args->{p2h}) {