summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TeXCatalogue.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-10-07 11:46:52 +0000
committerNorbert Preining <preining@logic.at>2009-10-07 11:46:52 +0000
commitbd6d7e8aec8f17e431eeb83e77f8844c446de5fb (patch)
tree67ce05e3e491f0b36ac58ab0556c6f7cda73f238 /Master/tlpkg/TeXLive/TeXCatalogue.pm
parent4773e66b6b71c419406ad836e67997034ade6568 (diff)
include patches from Alexander Cherepanov
git-svn-id: svn://tug.org/texlive/trunk@15667 c570f23f-e606-0410-a88d-b1316a301751
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