From 6951ea3421fd2132ed4d73aa568c08a66d866111 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 24 Apr 2016 13:05:42 +0000 Subject: 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 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 13 +++++++++---- 1 file 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 -- cgit v1.2.3