diff options
-rwxr-xr-x | Master/tlpkg/bin/tl-update-docindex | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tl-update-docindex b/Master/tlpkg/bin/tl-update-docindex index db41940223a..0bacda10cd8 100755 --- a/Master/tlpkg/bin/tl-update-docindex +++ b/Master/tlpkg/bin/tl-update-docindex @@ -128,7 +128,7 @@ sub push_pkg_list { # print package name with ctan link and shortdesc my $id = qq!id="$name"!; # should be unique my $dir = &find_doc_dir($name, @docfiles); - push @lines, qq#\n<li $id><b><a href="$dir">$name</a></b><small>\n#; + push @lines, qq#\n<li $id><b><a href="$dir/">$name</a></b><small>\n#; # # Don't link to CTAN if the package doesn't exist. # We could find more by looking at the .tlpsrc, but let's skip @@ -142,8 +142,7 @@ sub push_pkg_list { my $shortdesc = $tlpkg->shortdesc; # a few shortdescs already end with a period: $shortdesc =~ s/\.$// if defined $shortdesc; - #push @lines, "$shortdesc. \n" if defined $shortdesc; - push @lines, "$shortdesc\n" if defined $shortdesc; + push @lines, "$shortdesc. \n" if defined $shortdesc; #warn "$name\n" if not defined $shortdesc; # now the list of docfiles @@ -195,7 +194,7 @@ sub find_doc_dir { } # a directory by name is probably better than just the shortest. - return "$name_dir/" if $name_dir; + return $name_dir if $name_dir; if ($shortest_dir !~ m,/,) { # should never happen except for texlive.infra, which has the |