- $name =~ m,/H1>\s(\S+)\s[\s-]*(.*?)\s*$,sm;
- print HTML qq(<A HREF="$dir/$file">);
- print HTML "<DT>$1</A><DD>$2\n" if defined $1;
-# print HTML qq(<A HREF="$dir/$file">$1</A><BR>\n") if defined $1;
+ ($lcp1,$lcp2) = ($name =~ m,/H1>\s(\S+)\s[\s-]*(.*?)\s*$,sm);
+ if (defined $lcp1 and $lcp1 eq '<P>') { # Uninteresting. Try again.
+ ($lcp1,$lcp2) = ($name =~ m,/H1>\s<P>\s(\S+)\s[\s-]*(.*?)\s*$,sm);
+ }
+ my $url= "$dir/$file" ;
+ if ( ! defined $opt_htmlroot || $opt_htmlroot eq '' ) {
+ $url = Pod::Html::relativize_url( "$dir/$file", $html ) ;
+ }
+
+ print HTML qq(<A HREF="$url">);
+ print HTML "<DT>$lcp1</A><DD>$lcp2\n" if defined $lcp1;
+# print HTML qq(<A HREF="$url">$lcp1</A><BR>\n") if defined $lcp1;