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

commits+karl at tug.org commits+karl at tug.org
Mon May 3 19:37:44 CEST 2021


Revision: 59064
          http://tug.org/svn/texlive?view=revision&revision=59064
Author:   karl
Date:     2021-05-03 19:37:44 +0200 (Mon, 03 May 2021)
Log Message:
-----------
(uninstall_texlive): don't let --dry-run be
specified with remove --all, since we haven't
implemented that. Oops.

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	2021-05-03 15:48:08 UTC (rev 59063)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2021-05-03 17:37:44 UTC (rev 59064)
@@ -5249,6 +5249,11 @@
   return if !check_on_writable();
 
   init_local_db(0);
+  if (defined($opts{"dry-run"})) {
+    # TODO: we should implement --dry-run for remove --all.
+    print "Sorry, no --dry-run with remove --all; goodbye.\n";
+    return ($F_OK | $F_NOPOSTACTION);
+  }
   my $force = defined($opts{"force"}) ? $opts{"force"} : 0;
   if (!$force) {
     print("If you answer yes here the whole TeX Live installation here,\n",
@@ -5255,7 +5260,7 @@
           "under ", $localtlpdb->root, ", will be removed!\n");
     print "Remove TeX Live (y/N): ";
     my $yesno = <STDIN>;
-    if ($yesno !~ m/^y(es)?$/i) {
+    if (!defined($yesno) || $yesno !~ m/^y(es)?$/i) {
       print "Ok, cancelling the removal!\n";
       return ($F_OK | $F_NOPOSTACTION);
     }
@@ -8870,9 +8875,10 @@
 
 =back
 
-This action does not automatically remove symlinks to executables from
-system directories; you need to run C<tlmgr path remove> (L</path>)
-yourself if you are using this feature and want stale symlinks removed.
+Except with C<--all>, this C<remove> action does not automatically
+remove symlinks to executables from system directories; you need to run
+C<tlmgr path remove> (L</path>) yourself if you remove an individual
+package with a symlink in a system directory.
 
 =head2 repository
 



More information about the tex-live-commits mailing list.