summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-09-30 00:34:28 +0000
committerKarl Berry <karl@freefriends.org>2009-09-30 00:34:28 +0000
commit218f326a7ed3fcaa8c830ce2a5d67ec88d4152af (patch)
treec85cba613227ae42086cf8020931f603e5baa4e9
parente4444bb7b84b909bcec1079b1f37edcedef57fce (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
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm1
-rw-r--r--Master/tlpkg/TeXLive/TeXCatalogue.pm2
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: $!");
}