- ($name) = grep(/NAME=/, @filedata);
- $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;
+ my $name;
+ ($name) = grep(/name="name"/i, @filedata);
+ ($lcp1,$lcp2) = ($name =~ m,/H1>\s(\S+)\s[\s-]*(.*?)\s*$,smi);
+ if (defined $lcp1 and $lcp1 =~ m,^<P>$,i) { # Uninteresting. Try again.
+ ($lcp1,$lcp2) = ($name =~ m,/H1>\s<P>\s*(\S+)\s[\s-]*(.*?)\s*$,smi);
+ }
+ my $url= "$pod/$file" ;
+ if ( ! defined $Options{htmlroot} || $Options{htmlroot} eq '' ) {
+ $url = Pod::Html::relativize_url( "$pod/$file", $html ) ;
+ }
+
+ if (defined $lcp1) {
+ print HTML qq(<DT><A HREF="$url">);
+ print HTML "$lcp1</A></DT><DD>$lcp2</DD>\n";
+ }