diff options
author | Norbert Preining <preining@logic.at> | 2016-04-24 13:05:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-04-24 13:05:42 +0000 |
commit | 6951ea3421fd2132ed4d73aa568c08a66d866111 (patch) | |
tree | 0929a18d668c66e78a6bbc95c541d6c28c70cd5e /Master | |
parent | e7b3d9a6c09f60f614fbaa46beea141960235338 (diff) |
tlmgr info: do not access internet if --only-installed is given
git-svn-id: svn://tug.org/texlive/trunk@40721 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 725e253a818..dd3fe7d4de6 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -1382,6 +1382,11 @@ sub action_info { my $tlp = $localtlpdb->get_package($pkg); my $installed = 0; if (!$tlp) { + if ($opts{"only-installed"}) { + print "package: $pkg\n"; + print "installed: No\n"; + next; + } if (!$remotetlpdb) { init_tlmedia_or_die(); } @@ -1473,11 +1478,11 @@ sub action_info { if ($tlp->category ne "Collection" && $tlp->category ne "Scheme") { @colls = $localtlpdb->needed_by($pkg); if (!@colls) { - # not referenced in the local tlpdb, so try the remote here, too - if (!$remotetlpdb) { - init_tlmedia_or_die(); + if (!$opts{"only-installed"}) { + # not referenced in the local tlpdb, so try the remote here, too + init_tlmedia_or_die() if (!$remotetlpdb); + @colls = $remotetlpdb->needed_by($pkg); } - @colls = $remotetlpdb->needed_by($pkg); } } # some packages might depend on other packages, so do not |