diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
| -rwxr-xr-x | Master/tlpkg/bin/tlpkginfo | 28 |
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-,,; |