trailing / on doc dir link; period+space after shortdesc

git-svn-id: svn://tug.org/texlive/trunk@55258 c570f23f-e606-0410-a88d-b1316a301751

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.&nbsp;\n" if defined $shortdesc;
-  push @lines, "$shortdesc\n" if defined $shortdesc;
+  push @lines, "$shortdesc.&nbsp;\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