diff options
| author | Norbert Preining <preining@logic.at> | 2008-06-02 05:32:08 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-06-02 05:32:08 +0000 |
| commit | 244180f23a40e75286a184f896e596fe73da513b (patch) | |
| tree | 633a22f55a40b4c6c84a5009abcc97a1421afe6c | |
| parent | f40b05fbe631725bc3ab5cb930940b102674d3e6 (diff) | |
tlmgrgui.pl: if loading Tk fails, tell me what happened
git-svn-id: svn://tug.org/texlive/trunk@8463 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index 0c6cfe77580..1f425619ae4 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -99,13 +99,14 @@ eval { require Tk; }; if ($@) { # that didn't work out, give some usefull error message and stop if (win32()) { - printf STDERR _"Cannot load Tk, that should not happen as we ship it! -How did you start tlmgrgui??\n"; + printf STDERR "Cannot load Tk, that should not happen as we ship it! +How did you start tlmgrgui??\n(Error message: $@)\n"; } else { - printf STDERR _" + printf STDERR " Cannot load Tk, thus the GUI cannot be started! The Perl/Tk module is not shipped with the TeX Live installation. You have to install it to get tlmgr GUI running. +(Error message: $@) "; } exit 1; |