diff options
| author | Karl Berry <karl@freefriends.org> | 2009-09-30 00:34:28 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2009-09-30 00:34:28 +0000 |
| commit | 218f326a7ed3fcaa8c830ce2a5d67ec88d4152af (patch) | |
| tree | c85cba613227ae42086cf8020931f603e5baa4e9 /Master/tlpkg/TeXLive | |
| parent | e4444bb7b84b909bcec1079b1f37edcedef57fce (diff) | |
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
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 1 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 2 |
2 files changed, 2 insertions, 1 deletions
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: $!"); } |