texlive[59191] Master/tlpkg/bin/tl-update-docindex: handle doc.html
commits+karl at tug.org
commits+karl at tug.org
Fri May 14 18:34:42 CEST 2021
Revision: 59191
http://tug.org/svn/texlive?view=revision&revision=59191
Author: karl
Date: 2021-05-14 18:34:42 +0200 (Fri, 14 May 2021)
Log Message:
-----------
handle doc.html being in texlive-scripts
Modified Paths:
--------------
trunk/Master/tlpkg/bin/tl-update-docindex
Modified: trunk/Master/tlpkg/bin/tl-update-docindex
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-docindex 2021-05-13 23:48:24 UTC (rev 59190)
+++ trunk/Master/tlpkg/bin/tl-update-docindex 2021-05-14 16:34:42 UTC (rev 59191)
@@ -40,8 +40,8 @@
<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 @@
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 @@
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 @@
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 "";
More information about the tex-live-commits
mailing list.