diff options
| author | Norbert Preining <preining@logic.at> | 2008-08-03 23:36:17 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-08-03 23:36:17 +0000 |
| commit | ce8d04911b8063466e70e222bcf6e334b3c4211d (patch) | |
| tree | 8e417e4e131ac954c8504f70747661b138e0ed3d /Master/tlpkg/installer | |
| parent | b8dd0380e8bd00004921bb030db83ac6361562b0 (diff) | |
gui installer: give more sensible warning if there is no translation
git-svn-id: svn://tug.org/texlive/trunk@10051 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 3bed35adc75..8ee5af9baaa 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -174,10 +174,9 @@ my %labels = ( binsys => 'Binary System(s)', if (($::lang ne "en") && ($::lang ne "C")) { if (! -r "$::installerdir/tlpkg/installer/lang/perltk-$::lang") { - #eval { require("installer/lang/perltk-$::lang.pl"); }; - #if ($@) { - # couldn't find the file, continue with english - warn "Couldn't find language file installer/lang/perltk-$::lang.pl: $!\nContinuing in English!\n"; + tlwarn ("\n Sorry, no translations available for $::lang; falling back to English. + (If you'd like to help translate the installer's messages, please see + http://tug.org/texlive/doc.html for information.)\n\n"); } else { # merge the translated strings into the text string open(LANG,"<$::installerdir/tlpkg/installer/lang/perltk-$::lang"); |