diff options
author | Karl Berry <karl@freefriends.org> | 2021-05-14 16:34:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-05-14 16:34:42 +0000 |
commit | 883c55014140323341adc8d19e748f6a893f7947 (patch) | |
tree | 26c1dd0248fbd48f2864cbd044be00cbbad2ef45 /Master/tlpkg/bin/tl-update-docindex | |
parent | ce2545916124d4a0bcc0753c4fdbc2d6ff158dd4 (diff) |
handle doc.html being in texlive-scripts
git-svn-id: svn://tug.org/texlive/trunk@59191 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-docindex')
-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 ""; |