From 883c55014140323341adc8d19e748f6a893f7947 Mon Sep 17 00:00:00 2001
From: Karl Berry
For documentation on TeX Live itself, see the texlive-en package below and its several nearby translations, as well as the texlive.infra -package. There are also links from the index.html page -here. +and texlive-scripts packages. There are +also links from the index.html 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\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 ""; -- cgit v1.2.3