From 9fba7bb23863549c53f0d5f7351ab02176f2b247 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 21 Nov 2018 15:05:48 +0000 Subject: WISH env var for specifying Tcl/Tk interpreter git-svn-id: svn://tug.org/texlive/trunk@49210 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'Master') 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"; + } } } } -- cgit v1.2.3