summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TeXCatalogue.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm')
-rw-r--r--Master/tlpkg/TeXLive/TeXCatalogue.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm
index 8ff06b08040..ca524411373 100644
--- a/Master/tlpkg/TeXLive/TeXCatalogue.pm
+++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm
@@ -208,9 +208,11 @@ sub quest4texlive
# Try to build the inverse mapping:
my (%inv, %count);
for my $id (keys %{$texcat}) {
- if (defined($texcat->{$id}{'texlive'})) {
- $count{$texcat->{$id}{'texlive'}}++;
- $inv{$texcat->{$id}{'texlive'}} = $id;
+ my $tl = $texcat->{$id}{'texlive'};
+ if (defined($tl)) {
+ $tl =~ s/^bin-//;
+ $count{$tl}++;
+ $inv{$tl} = $id;
}
}
# Go through texlive names