summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/scripts')
-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;