diff options
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index fdc5badeb47..85e53d1c6e6 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -1153,6 +1153,7 @@ sub action_info { foreach my $ppp ($what, @todo) { my ($pkg, $tag) = split '@', $ppp, 2; my $tlpdb = $localtlpdb; + my $source_found; my $tlp = $localtlpdb->get_package($pkg); my $installed = 0; if (!$tlp) { @@ -1216,6 +1217,17 @@ sub action_info { tlwarn("tlmgr: cannot find package $pkg\n"); next; } + # we want to also show the source if it is known + if (defined($tag)) { + $source_found = $tag; + } else { + if ($remotetlpdb->is_virtual) { + my ($firsttag, @cand) = $remotetlpdb->candidates($pkg); + $source_found = $firsttag; + } else { + # might be single user repository, don't mention anything + } + } $tlpdb = $remotetlpdb; } else { $installed = 1; @@ -1236,7 +1248,7 @@ sub action_info { # only collectons: @colls = grep {m;^collection-;} @colls; print "package: ", $tlp->name, "\n"; - print "repository: ", $tag, "\n" if (defined($tag)); + print "repository: ", $source_found, "\n" if (defined($source_found)); print "category: ", $tlp->category, "\n"; print "shortdesc: ", $tlp->shortdesc, "\n" if ($tlp->shortdesc); print "longdesc: ", $tlp->longdesc, "\n" if ($tlp->longdesc); @@ -3367,7 +3379,7 @@ sub action_install { if (!$opts{"dry-run"}) { $remotetlpdb->install_package($pkg, $localtlpdb, ($packs{$pkg} ? $packs{$pkg} : undef) ); - logpackage("${re}install: $pkg"); + logpackage("${re}install: $pkg$tagstr"); } $donesize += $sizes{$pkg}; $currnr++; |