summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-05-14 16:34:42 +0000
committerKarl Berry <karl@freefriends.org>2021-05-14 16:34:42 +0000
commit883c55014140323341adc8d19e748f6a893f7947 (patch)
tree26c1dd0248fbd48f2864cbd044be00cbbad2ef45 /Master/tlpkg
parentce2545916124d4a0bcc0753c4fdbc2d6ff158dd4 (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')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-docindex9
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/(&nbsp;)?\n$/./;
+ $list =~ s/(&nbsp;)?\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 "";