diff options
Diffstat (limited to 'Master/tlpkg/installer')
| -rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl index 4882f749b61..17d46eefa60 100755 --- a/Master/tlpkg/installer/install-tl-gui.tcl +++ b/Master/tlpkg/installer/install-tl-gui.tcl @@ -130,13 +130,17 @@ proc show_time {s} { # write to a logfile which is shared with the backend. # both parties open, append and close every time. -if {$::tcl_platform(os) eq "Darwin"} { - set ::dblfile "$::env(TMPDIR)/dblog" -} elseif {$::tcl_platform(platform) eq "unix"} { - set ::dblfile "/tmp/dblog" -} else { - set ::dblfile "$::env(TEMP)/dblog.txt" +set dblogdir "/tmp" +if [info exists ::env(TMPDIR)] { + set dblogdir $::env(TMPDIR) +} elseif [info exists ::env(TMP)] { + set dblogdir $::env(TMP) +} elseif [info exists ::env(TEMP)] { + set dblogdir $::env(TEMP) } +set ::dblfile [file join $dblogdir "dblog"] +unset dblogdir + proc dblog {s} { set db [open $::dblfile a] set t [get_stacktrace] @@ -1856,6 +1860,7 @@ proc main_prog {} { if [catch {open $cmd r+} ::inst] { err_exit "Error starting Perl backend" } + show_time "opened pipe" set ::perlpid [pid $::inst] |