Welcome to stdout; PERL5LIB exempted from environment check

git-svn-id: svn://tug.org/texlive/trunk@43920 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 4 insertions, 3 deletions

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";