From 218f326a7ed3fcaa8c830ce2a5d67ec88d4152af Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 30 Sep 2009 00:34:28 +0000 Subject: use Catalogue id, rather than name; lowercase both id and package name for comparison (from Alexander Cherepanov, 30 Sep 2009 02:45:28) git-svn-id: svn://tug.org/texlive/trunk@15570 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 1 + Master/tlpkg/TeXLive/TeXCatalogue.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index ea9d410de1f..4885f5e687b 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -745,6 +745,7 @@ sub update_from_catalogue $tlcname = $1; } } + $tlcname = lc($tlcname); if (defined($tlc->entries->{$tlcname})) { my $entry = $tlc->entries->{$tlcname}; if (defined($entry->entry->{'date'})) { diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm index ad9d83c0ac6..3ac22876c93 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -186,7 +186,7 @@ sub initialize { 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: $!"); } -- cgit v1.2.3