summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-31 17:19:10 +0000
committerNorbert Preining <preining@logic.at>2008-07-31 17:19:10 +0000
commit74b985b0bf91f9e9c24d95eb513320cc547cd948 (patch)
treed7584910fee42ebae9870bddeaddd2c120e99306 /Master
parentcb7e9db01470ae628d410ac9916f1a6d2dcb8514 (diff)
install-tl: try to catch errors when perl/Tk is not useable by creating a
main window and if that doesn't work continue in text mode git-svn-id: svn://tug.org/texlive/trunk@9946 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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");