texlive[43920] Master/install-tl: Welcome to stdout; PERL5LIB

[commits+siepo at tug.org]

Revision: 43920
          http://tug.org/svn/texlive?view=revision&revision=43920
Author:   siepo
Date:     2017-04-19 13:21:46 +0200 (Wed, 19 Apr 2017)
Log Message:
-----------
Welcome to stdout; PERL5LIB exempted from environment check

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

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2017-04-19 10:07:10 UTC (rev 43919)
+++ trunk/Master/install-tl	2017-04-19 11:21:46 UTC (rev 43920)
@@ -595,13 +595,13 @@
   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 @@
     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";