summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl12
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/install-tl b/Master/install-tl
index 1ec5f629f0f..49f7e56da62 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -83,11 +83,13 @@ if ($^O !~ /^MSWin/i) {
if ($want_tcl) {
unshift (@new_args, "--");
unshift (@new_args, "$::installerdir/tlpkg/installer/install-tl-gui.tcl");
- if (!exec('wish', @new_args)) {
- if (!exec('wish8.6', @new_args)) {
- if (!exec('wish8.5', @new_args)) {
- if (!exec('tclkit', @new_args)) {
- die "wish not found\n";
+ if (!(defined $ENV{'WISH'}) || !exec($ENV{'WISH'}, @new_args)) {
+ if (!exec('wish', @new_args)) {
+ if (!exec('wish8.6', @new_args)) {
+ if (!exec('wish8.5', @new_args)) {
+ if (!exec('tclkit', @new_args)) {
+ die "wish not found\n";
+ }
}
}
}