summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-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: $!");
}