texlive[47092] Master/texmf-dist/scripts/texlive/tlmgr.pl: merge

[commits+preining at tug.org]

Revision: 47092
          http://tug.org/svn/texlive?view=revision&revision=47092
Author:   preining
Date:     2018-03-23 23:22:46 +0100 (Fri, 23 Mar 2018)
Log Message:
-----------
merge remove and uninstall

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:22:36 UTC (rev 47091)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-03-23 22:22:46 UTC (rev 47092)
@@ -320,10 +320,6 @@
   "shell" => {
     "function" => \&action_shell
   },
-  "uninstall" => {
-    "run-post" => 0,
-    "function" => \&action_uninstall
-  },
   "update" => {
     "options"  => {
       "all" => 1,
@@ -478,6 +474,10 @@
   if (defined $action && $action =~ /^(show|list)$/) {
     $action = "info";
   }
+  # merge actions remove and uninstall
+  if (defined $action && $action eq "uninstall") {
+    $action = "remove";
+  }
 
   # now $action should be part of %actionoptions, otherwise this is
   # an error
@@ -1085,7 +1085,7 @@
 sub action_remove {
   # if --all is given, pass on to uninstall_texlive
   if ($opts{'all'}) {
-    if (@_) {
+    if (@ARGV) {
       tlwarn("$prg: No additional arguments allowed with --all\n");
       return($F_ERROR);
     }
@@ -5057,11 +5057,6 @@
 
 # 
 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";
@@ -8238,7 +8233,7 @@
 
 =item B<--all>
 
-Uninstalls all of TeX Live, synonym to the C<uninstall> action.
+Uninstalls all of TeX Live.
 
 =item B<--backup>
 
@@ -8476,16 +8471,8 @@
 
 =head2 uninstall
 
-Uninstalls the entire TeX Live installation.  Options:
+Synonym for C<remove>.
 
-=over 4
-
-=item B<--force>
-
-Do not ask for confirmation, remove immediately.
-
-=back
-
 =head2 update [I<option>]... [I<pkg>]...
 
 Updates the packages given as arguments to the latest version available