texlive[51520] Master/install-tl: Eliminated superfluous 'endload'
commits+siepo at tug.org
commits+siepo at tug.org
Mon Jul 1 21:07:18 CEST 2019
Revision: 51520
http://tug.org/svn/texlive?view=revision&revision=51520
Author: siepo
Date: 2019-07-01 21:07:17 +0200 (Mon, 01 Jul 2019)
Log Message:
-----------
Eliminated superfluous 'endload' output
Modified Paths:
--------------
trunk/Master/install-tl
Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl 2019-07-01 18:48:20 UTC (rev 51519)
+++ trunk/Master/install-tl 2019-07-01 19:07:17 UTC (rev 51520)
@@ -31,6 +31,21 @@
unshift (@INC, "$::installerdir/tlpkg");
}
+# debugging communication with external gui: use shared logfile
+
+our $dblfile = "/tmp/dblog";
+$dblfile = $ENV{'TEMP'} . "\\dblog.txt" if ($^O =~ /^MSWin/i);
+$dblfile = $ENV{'TMPDIR'} . "/dblog" if ($^O eq 'darwin'
+ && exists $ENV{'TMPDIR'});
+sub dblog {
+ my $s = shift;
+ open(my $dbf, ">>", $dblfile);
+ print $dbf "PERL: $s\n";
+ close $dbf;
+}
+
+dblog(join("\n", @ARGV));
+
# On unix, this run of install-tl may do duty as a wrapper for
# install-tl-gui.tcl, which in its turn will start an actual run of install-tl.
# Skip this wrapper block if we can easily rule out a tcl gui:
@@ -170,19 +185,6 @@
# global list of warnings
@::WARNLINES = ();
-# debugging communication with external gui: use shared logfile
-
-our $dblfile = "/tmp/dblog";
-$dblfile = $ENV{'TEMP'} . "\\dblog.txt" if ($^O =~ /^MSWin/i);
-$dblfile = $ENV{'TMPDIR'} . "/dblog" if ($^O eq 'darwin'
- && exists $ENV{'TMPDIR'});
-sub dblog {
- my $s = shift;
- open(my $dbf, ">>", $dblfile);
- print $dbf "PERL: $s\n";
- close $dbf;
-}
-
# we play around with the environment, place to keep original
my %origenv = ();
@@ -703,7 +705,7 @@
}
read_profile($opt_profile);
if ($from_ext_gui) {
- print STDOUT "endload\n\n";
+ #print STDOUT "endload\n\n";
print STDOUT "startinst\n";
}
}
More information about the tex-live-commits
mailing list