texlive[44407] Master/install-tl: __ is not defined in install-tl;

[commits+karl at tug.org]

Revision: 44407
          http://tug.org/svn/texlive?view=revision&revision=44407
Author:   karl
Date:     2017-05-18 23:25:39 +0200 (Thu, 18 May 2017)
Log Message:
-----------
__ is not defined in install-tl; revert

Modified Paths:
--------------
    trunk/Master/install-tl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2017-05-18 20:59:03 UTC (rev 44406)
+++ trunk/Master/install-tl	2017-05-18 21:25:39 UTC (rev 44407)
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 # $Id$
 # 
-# Copyright 2007-2016
+# Copyright 2007-2017
 # Reinhard Kotucha, Norbert Preining, Karl Berry, Siep Kroonenberg.
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
@@ -596,7 +596,8 @@
   if ($::env_warns) { print STDERR $::env_warns; }
   unless ($ENV{"TEXLIVE_INSTALL_NO_WELCOME"}) {
     foreach my $t (@::welcome_arr) {
-      print STDOUT "$t\n";
+      printf STDOUT sprintf (shift @$t, @$t);
+      print STDOUT "\n";
     }
   }
   do_cleanup(); # sets $::LOGFILENAME if not already defined
@@ -2366,17 +2367,26 @@
 #
 sub create_welcome {
   @::welcome_arr = ();
-  push @::welcome_arr, __("\nWelcome to TeX Live!\n");
-  push @::welcome_arr, __(
-    "Documentation links: %s/index.html\nThe TeX Live web site (https://tug.org/texlive/)\ncontains updates and corrections.\n\nTeX Live is a joint project of the TeX user groups around the world;\n
-please consider supporting it by joining the group best for you.\n
-The list of groups is on the web at https://tug.org/usergroups.html.",
-    $::vars{'TEXDIR'});
+  push @::welcome_arr, (["\nWelcome to TeX Live!\n"]);
+  push @::welcome_arr, [ <<END_WELCOME_GENERIC,
+Documentation links: %s/index.html
+The TeX Live web site (https://tug.org/texlive/)
+contains updates and corrections.
+
+TeX Live is a joint project of the TeX user groups around the world;
+please consider supporting it by joining the group best for you.
+The list of groups is on the web at https://tug.org/usergroups.html.
+END_WELCOME_GENERIC
+    $::vars{'TEXDIR'}];
   if (!win32()) {
-    push @::welcome_arr, __(
-      "Add %s/texmf-dist/doc/man to MANPATH.\nAdd %s/texmf-dist/doc/info to INFOPATH.\nMost importantly, add %s/bin/%s\nto your PATH for current and future sessions.",
-      $::vars{'TEXDIR'}, $::vars{'TEXDIR'}, $::vars{'TEXDIR'},
-      $::vars{'this_platform'});
+    push @::welcome_arr, [ <<END_WELCOME_W32,
+Add %s/texmf-dist/doc/man to MANPATH.
+Add %s/texmf-dist/doc/info to INFOPATH.
+Most importantly, add %s/bin/%s
+to your PATH for current and future sessions.
+END_WELCOME_W32
+    $::vars{'TEXDIR'}, $::vars{'TEXDIR'}, $::vars{'TEXDIR'},
+    $::vars{'this_platform'}];
   }
 }