texlive[44407] Master/install-tl: __ is not defined in install-tl;
commits+karl at tug.org
commits+karl at tug.org
Thu May 18 23:25:39 CEST 2017
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'}];
}
}
More information about the tex-live-commits
mailing list