texlive[44422] Master/texmf-dist/scripts/texlive/tlmgr.pl:
commits+karl at tug.org
commits+karl at tug.org
Fri May 19 17:07:25 CEST 2017
Revision: 44422
http://tug.org/svn/texlive?view=revision&revision=44422
Author: karl
Date: 2017-05-19 17:07:25 +0200 (Fri, 19 May 2017)
Log Message:
-----------
(action_platform): message wording.
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2017-05-19 09:20:36 UTC (rev 44421)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2017-05-19 15:07:25 UTC (rev 44422)
@@ -4384,7 +4384,10 @@
}
print "Already installed platforms are marked with (i)\n";
print "You can add new platforms with: tlmgr platform add PLAT1 PLAT2...\n";
+ print "You can remove platforms with: tlmgr platform remove PLAT1 PLAT2...\n";
+ print "You can set the active platform with: tlmgr platform set PLAT\n";
return ($F_OK | $F_NOPOSTACTION);
+
} elsif ($what =~ m/^add$/i) {
return ($F_ERROR) if !check_on_writable();
init_tlmedia_or_die();
@@ -4397,7 +4400,7 @@
next;
}
if (!TeXLive::TLUtils::member($a, @available_arch)) {
- info("Platform $a not available, use 'tlmgr platform list'!\n");
+ info("Platform $a not available; see tlmgr platform list\n");
next;
}
push @todoarchs, $a;
@@ -4442,6 +4445,7 @@
$localtlpdb->setting("available_architectures", at larchs);
$localtlpdb->save;
}
+
} elsif ($what =~ m/^remove$/i) {
return ($F_ERROR) if !check_on_writable();
my @already_installed_arch = $localtlpdb->available_architectures;
@@ -4491,7 +4495,7 @@
# try to remove bin/$a dirs
for my $a (@todoarchs) {
if (!rmdir("$Master/bin/$a")) {
- tlwarn("$prg: binary directory $Master/bin/$a not empty after removal of $a.\n");
+ tlwarn("$prg: failed to rmdir $Master/bin/$a: $!\n");
$ret |= $F_WARNING;
}
}
@@ -4504,6 +4508,7 @@
$localtlpdb->setting("available_architectures", at newarchs);
$localtlpdb->save;
}
+
} elsif ($what =~ m/^set$/i) {
return if !check_on_writable();
my $arg = shift @ARGV;
More information about the tex-live-commits
mailing list