summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkginfo
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-xMaster/tlpkg/bin/tlpkginfo28
1 files changed, 17 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo
index 7b9718a422c..49598411774 100755
--- a/Master/tlpkg/bin/tlpkginfo
+++ b/Master/tlpkg/bin/tlpkginfo
@@ -55,22 +55,28 @@ sub main
#
sub find_ctan_dir
{
- my ($me) = @_;
- return 1 unless $me;
+ my ($pkgname) = @_;
+ return 1 unless $pkgname;
# use explicit catalogue name if given in tlpsrc.
- $me = &tlpsrc_find_catalogue ($me) || $me;
-
- # ctan (and latex-tds) bundles all ams packages together,
- # but we use separate tlp names.
- $me = "amslatex" if $me =~ /^($amslatex_tds_pkgs)$/;
+ my $me = &tlpsrc_find_catalogue ($pkgname);
+ if (! $me) {
+ if ($pkgname =~ /^($amslatex_tds_pkgs)$/) {
+ # ctan (and latex-tds) bundles all ams packages together,
+ # but we use separate tlp names.
+ $me = "amslatex" ;
+ } elsif ($pkgname =~ /^($cjk_pkgs)$/) {
+ $me = "cjk"; # likewise CJK
+ } elsif ($pkgname eq "mkgrkindex") {
+ $me = "greek-makeindex"; # use directory name
+ } else {
+ $me = $pkgname; # usually the same
+ }
+ }
- # Likewise CJK.
- $me = "cjk" if $me =~ /^($cjk_pkgs)$/;
-
# The CTAN path to a package is sometimes stored in the TeX Catalogue,
# but old entries don't have it, etc. Still, we want to use it if present.
- my $ctan_dir = &catalogue_find_ctan_path ($me) unless $me eq "cc-pl";
+ my $ctan_dir = &catalogue_find_ctan_path ($me);
if (! $ctan_dir) {
# fall back on many special cases
(my $menobin = $me) =~ s,^bin-,,;