summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-10-23 13:15:47 +0000
committerKarl Berry <karl@freefriends.org>2008-10-23 13:15:47 +0000
commit32ff8971a658f596849f6d5f2b8f67c21aa5eb46 (patch)
tree8f7ce8d2af8bc7681fe0b669ca6b7f9b25822987 /Master
parent1f2590397e6a0fc889a50f44f1296f67395fa2c3 (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')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl12
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;