summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl11
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/install-tl b/Master/install-tl
index a02a65e5eaa..2c6134c1db3 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -401,6 +401,17 @@ if ($opt_profile eq "") {
tlwarn("Continuing in text mode...\n");
$opt_gui = 0;
}
+ eval { my $foo = Tk::MainWindow->new; $foo->destroy; };
+ if ($@) {
+ tlwarn("perl/Tk unusable, cannot create main windows.\n");
+ if (platform() eq "universal-darwin") {
+ tlwarn("That could be a consequence of not having X Windows installed!\n");
+ }
+ tlwarn("Error message from creating MainWindow:\n");
+ tlwarn(" $@\n");
+ tlwarn("Continuing in text mode...\n");
+ $opt_gui = 0;
+ }
}
if ($opt_gui && !$opt_nogui) {
require("installer/install-menu-perltk.pl");