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