texlive[55258] Master/tlpkg/bin/tl-update-docindex: trailing / on doc

[commits+karl at tug.org]

Revision: 55258
          http://tug.org/svn/texlive?view=revision&revision=55258
Author:   karl
Date:     2020-05-24 20:20:12 +0200 (Sun, 24 May 2020)
Log Message:
-----------
trailing / on doc dir link; period+space after shortdesc

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tl-update-docindex

Modified: trunk/Master/tlpkg/bin/tl-update-docindex
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-docindex	2020-05-24 18:18:25 UTC (rev 55257)
+++ trunk/Master/tlpkg/bin/tl-update-docindex	2020-05-24 18:20:12 UTC (rev 55258)
@@ -128,7 +128,7 @@
   # 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 @@
   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 @@
   }
 
   # 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