diff options
| author | Norbert Preining <preining@logic.at> | 2008-01-23 17:50:54 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-01-23 17:50:54 +0000 |
| commit | 1e0c37bbf562412cf3073469ca0bd1bda220b163 (patch) | |
| tree | e7dd8a9925ab54607911206a092bed8410306469 | |
| parent | 0e6b8081807ad9e08d813202dbeff1f729bf408a (diff) | |
checks
git-svn-id: svn://tug.org/texlive/trunk@6381 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/install-tl.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index c7c9c9424b7..8bf54006b5a 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -55,7 +55,12 @@ no utf8; $::lang = "en"; if ($^O =~ /^MSWin(32|64)$/i) { # trying to deduce automatically the country code - $::lang = TeXLive::TLWinGoo::reg_country(); + my $foo = TeXLive::TLWinGoo::reg_country(); + if ($foo) { + $::lang = $foo; + } else { + tllog($::LOG_DEBUG, "Didn't get any usuful code from reg_country: $foo...\n"); + } } else { # we load POSIX and locale stuff require POSIX; |