From 437f8b2c32de74f9a26cf61059b8f9dee8d04a6f Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 19 Apr 2017 11:21:46 +0000 Subject: Welcome to stdout; PERL5LIB exempted from environment check git-svn-id: svn://tug.org/texlive/trunk@43920 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 4f99d347e6b..34d4e083214 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -595,13 +595,13 @@ if ($opt_gui eq 'text' or if ($::env_warns) { print STDERR $::env_warns; } unless ($ENV{"TEXLIVE_INSTALL_NO_WELCOME"}) { foreach my $t (@::welcome_arr) { - printf STDERR sprintf (shift @$t, @$t); - print STDERR "\n"; + printf STDOUT sprintf (shift @$t, @$t); + print STDOUT "\n"; } } do_cleanup(); # sets $::LOGFILENAME if not already defined if ($LOGFILENAME) { - print STDERR "Logfile: $::LOGFILENAME\n"; + print STDOUT "Logfile: $::LOGFILENAME\n"; } else { # do_cleanup sets $::LOGFILENAME to "" #if no logfile could be written @@ -2317,6 +2317,7 @@ sub check_env { next if $evar =~ /^(_ |.*PWD |GENDOCS_TEMPLATE_DIR|PATH|SHELLOPTS + |PERL5LIB )$/x; # don't worry about these if ("$evar $origenv{$evar}" =~ /tex/i) { # check both key and value $::env_warns .= " $evar=$origenv{$evar}\n"; -- cgit v1.2.3