diff options
-rwxr-xr-x | Master/tlpkg/bin/tl-update-docindex | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tl-update-docindex b/Master/tlpkg/bin/tl-update-docindex index 0bacda10cd8..69a39571125 100755 --- a/Master/tlpkg/bin/tl-update-docindex +++ b/Master/tlpkg/bin/tl-update-docindex @@ -40,8 +40,8 @@ sorted by package name.</p> <p>For documentation on TeX Live itself, see the <a href="#texlive-en">texlive-en</a> package below and its several nearby translations, as well as the <a href="#texlive.infra">texlive.infra</a> -package. There are also links from the <a href=".">index.html</a> page -here. +and <a href="#texlive-scripts">texlive-scripts</a> packages. There are +also links from the <a href=".">index.html</a> page here. END_HEADER print_all_pkg($tlpdb); @@ -155,7 +155,7 @@ sub push_pkg_list { if (defined $dflanguage && $dflanguage ne "en"); $list .= "\n"; } - $list =~ s/( )?\n$/./; + $list =~ s/( )?\n$//; push @lines, "$list\n</small></li>\n"; } @@ -168,6 +168,7 @@ sub find_doc_dir { my $shortest_dir = "a" x 1000; my $name_dir = ""; for my $f (@docfiles) { + next if $f eq "doc.html"; # top-level doc.html is just confusing my $dir = dirname($f); # if we find a file in a directory named for the package, @@ -198,7 +199,7 @@ sub find_doc_dir { if ($shortest_dir !~ m,/,) { # should never happen except for texlive.infra, which has the - # top-level index.html, so it works out ok. + # top-level index.html. warn "no shortest dir for $name, should never happen! docfiles=@docfiles" unless $name eq "texlive.infra"; return ""; |