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

[commits+karl at tug.org]

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;