WISH env var for specifying Tcl/Tk interpreter

git-svn-id: svn://tug.org/texlive/trunk@49210 c570f23f-e606-0410-a88d-b1316a301751

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";
+            }
           }
         }
       }