From d858cc4b88ffc2e842f0318dec5912f2fb5de8fd Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 27 Jun 2018 16:10:39 +0000 Subject: Win32 console windows solved git-svn-id: svn://tug.org/texlive/trunk@48098 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index afbaed7d155..56863efe87e 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -96,10 +96,13 @@ use strict; @::WARNLINES = (); # debugging communication with external gui: use shared logfile -# (assumes unix) + +our $dblfile = "/tmp/dblog"; +$dblfile = $ENV{'TEMP'} . "\\dblog.txt" if ($^O=~/^MSWin/i); +$dblfile = $ENV{'TMPDIR'} . "/dblog" if ($^O eq 'darwin'); sub dblog { my $s = shift; - open(my $dbf, ">>", "/tmp/dblog"); + open(my $dbf, ">>", $dblfile); print $dbf "PERL: $s\n"; close $dbf; } @@ -224,6 +227,8 @@ if ((defined $ARGV[0]) && $ARGV[0] eq "-from_ext_gui") { select(STDOUT); $| = 1; + # windows: suppress console windows when invoking other programs + Win32::SetChildShowWindow(0) if win32(); # ___, defined in this file, replaces the GUI translating function *__ = \&::___; } @@ -598,23 +603,12 @@ if ($opt_profile eq "") { if ($ret != $MENU_INSTALL) { tlwarn("Unknown return value of run_menu: $ret\n"); exit(3); - } elsif (win32() && $from_ext_gui) { - create_profile($ENV{'tmpprofile'}); - exit; - # the external gui will do the actual installation - # from a temporary batchfile using this temporary profile, - # this to prevent hundreds of dosboxes popping up } } else { # no interactive setting of options *__ = \&::___; if (!do_remote_init()) { die ("Exiting installation.\n"); } - if (win32() && $from_ext_gui) { - # copy profile and let the gui restart the installation - TeXLive::copy("-f", $opt_profile, $ENV{'tmpprofile'}); - exit; - } read_profile($opt_profile); if ($from_ext_gui) { print STDOUT "startinst\n"; -- cgit v1.2.3