texlive[47091] Master/texmf-dist/scripts/texlive/tlmgr.pl: work on
commits+preining at tug.org
commits+preining at tug.org
Fri Mar 23 23:22:37 CET 2018
Revision: 47091
http://tug.org/svn/texlive?view=revision&revision=47091
Author: preining
Date: 2018-03-23 23:22:36 +0100 (Fri, 23 Mar 2018)
Log Message:
-----------
work on uninstall/remove merge
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 2018-03-23 22:17:53 UTC (rev 47090)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2018-03-23 22:22:36 UTC (rev 47091)
@@ -281,6 +281,7 @@
},
"remove" => {
"options" => {
+ "all" => 1,
"backup" => 1,
"backupdir" => "=s",
"dry-run|n" => 1,
@@ -320,7 +321,6 @@
"function" => \&action_shell
},
"uninstall" => {
- "options" => { "force" => 1 },
"run-post" => 0,
"function" => \&action_uninstall
},
@@ -1083,6 +1083,14 @@
}
sub action_remove {
+ # if --all is given, pass on to uninstall_texlive
+ if ($opts{'all'}) {
+ if (@_) {
+ tlwarn("$prg: No additional arguments allowed with --all\n");
+ return($F_ERROR);
+ }
+ exit(uninstall_texlive());
+ }
# we do the following:
# - (not implemented) order collections such that those depending on
# other collections are first removed, and then those which only
@@ -5050,6 +5058,11 @@
#
UNINSTALL
#
sub action_uninstall {
+ tlwarn("$prg: Please use remove --all\n");
+ return($F_ERROR);
+}
+
+sub uninstall_texlive {
if (win32()) {
printf STDERR "Please use \"Add/Remove Programs\" from the Control Panel to removing TeX Live!\n";
return ($F_ERROR);
@@ -8223,6 +8236,10 @@
=over 4
+=item B<--all>
+
+Uninstalls all of TeX Live, synonym to the C<uninstall> action.
+
=item B<--backup>
=item B<--backupdir> I<directory>
More information about the tex-live-commits
mailing list