summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-07-01 14:32:56 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-07-01 14:32:56 +0000
commit6c90f7cf7f7207223734a2395c12164c3c88a499 (patch)
treed9b55e71743dee8d4569e54931fe69c5c2118b14 /Master/tlpkg/installer/install-tl-gui.tcl
parentd8b7c4fcde302b84fc4e35ce590d30da461718fd (diff)
Take missing TMPDIR for sudo on Darwin into account
git-svn-id: svn://tug.org/texlive/trunk@51517 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl17
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]