[tex-live] Missing shortdesc (was Re: Catalogue sources)

[Alexander Cherepanov]

Hi Karl!
On Sun, 27 Sep 2009 16:05:27 -0500, karl at freefriends.org (Karl Berry) wrote:

>     Not much, it gives 3 more matches:
> 
>       12many        (one2many.xml)
>       r_und_s       (r-und-s.xml)
>       syntax        (syntax-mdw.xml or syntax2.xml)
> 
>     IMHO it's better to add 'catalogue' lines in their tlpsrc.
>
> Agreed.  I will do that.

Thanks, they work fine with the following patch.

>     We could lowercase them when reading the catalogue into the memory, we 
>     could special-case them or maybe it's just an irregularity in the 
>     catalogue.
> 
> I think it would be best to do a case-insensitive comparison, rather
> than assuming the catalogue ids are lowercase.  Since it is simple for a
> program to do and easy for a human to get wrong.

Ok, here it is:

diff -u TeXLive.orig/TeXCatalogue.pm TeXLive/TeXCatalogue.pm
--- TeXLive.orig/TeXCatalogue.pm        2009-09-08 02:43:49.000000000 +0400
+++ TeXLive/TeXCatalogue.pm     2009-09-30 02:20:09.000000000 +0400
@@ -186,7 +186,7 @@
     open(my $io,"<$_") or die "Cannot read $_: $!";
     my $tce = TeXLive::TeXCatalogue::Entry->new( 'ioref' => $io );
     close($io);
-    $self->{'entries'}{$tce->name} = $tce;
+    $self->{'entries'}{lc($tce->{'entry'}{'id'})} = $tce;
   }
   chdir($cwd) || die ("Cannot change back to $cwd: $!");
 }
diff -u TeXLive.orig/TLPOBJ.pm TeXLive/TLPOBJ.pm
--- TeXLive.orig/TLPOBJ.pm      2009-09-20 01:40:46.000000000 +0400
+++ TeXLive/TLPOBJ.pm   2009-09-30 02:20:15.000000000 +0400
@@ -745,6 +745,7 @@
       $tlcname = $1;
     }
   }
+  $tlcname = lc($tlcname);
   if (defined($tlc->entries->{$tlcname})) {
     my $entry = $tlc->entries->{$tlcname};
     if (defined($entry->entry->{'date'})) {

Down to 210 misses.

Alexander Cherepanov