diff options
author | Karl Berry <karl@freefriends.org> | 2008-10-23 13:15:47 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-10-23 13:15:47 +0000 |
commit | 32ff8971a658f596849f6d5f2b8f67c21aa5eb46 (patch) | |
tree | 8f7ce8d2af8bc7681fe0b669ca6b7f9b25822987 /Master/texmf/scripts | |
parent | 1f2590397e6a0fc889a50f44f1296f67395fa2c3 (diff) |
(action_show): show revision number if installed.
git-svn-id: svn://tug.org/texlive/trunk@11036 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 6e0fd4237f7..6ae9df0d18a 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -75,7 +75,8 @@ use TeXLive::TLMedia; use TeXLive::TLUtils; use TeXLive::TLWinGoo; use TeXLive::TLPostActions; -TeXLive::TLUtils->import( qw(member info give_ctan_mirror win32 merge_into copy log debug) ); +TeXLive::TLUtils->import(qw(member info give_ctan_mirror win32 + merge_into copy log debug)); use Cwd qw/abs_path/; use Pod::Usage; use Getopt::Long qw(:config no_autoabbrev require_order); @@ -573,11 +574,12 @@ sub action_show { print "Category: ", $tlp->category, "\n"; print "ShortDesc: ", $tlp->shortdesc, "\n" if ($tlp->shortdesc); print "LongDesc: ", $tlp->longdesc, "\n" if ($tlp->longdesc); - print "Installed: ", ($installed?"Yes\n":"No\n"); + print "Installed: ", ($installed ? "Yes" : "No"), "\n"; + print "Revision: ", $tlp->revision, "\n" if ($installed); print "Collection: ", @colls, "\n" if (@colls); print "\n"; } else { - printf STDERR "Cannot find $pkg\n"; + printf STDERR "tlmgr: Cannot find $pkg\n"; } } return; @@ -1044,7 +1046,7 @@ sub action_update { # skipping this package, it has been removed due to server removal next; } else { - tlwarn("\nShould not happen, please report: " + tlwarn("\ntlmgr: should not happen, please report: " . "$pkg mentioned, but neither new nor forcibly removed\n"); next; } @@ -1245,7 +1247,7 @@ sub action_install { my $re = ""; if (defined($localtlpdb->get_package($pkg))) { if ($opt_reinstall) { - $re = "re-"; + $re = "re"; } else { debug("already installed: $pkg\n"); next; |