summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-07-27 03:56:39 +0000
committerNorbert Preining <preining@logic.at>2012-07-27 03:56:39 +0000
commit558943d5f47b4a82a9667461df6f45aaccca1dfd (patch)
tree8983a80becee7680f584031b1b55dad41e2a6b43
parent56bfda68a630ee3b9975577908e06d10790a9ff0 (diff)
fix broken tlmgr GUI language selection
we need File::Glob to properly glob white space in directories fix the changed language names git-svn-id: svn://tug.org/texlive/trunk@27189 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui.pl9
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index 1f28bd9fbe7..fcc8f877e33 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -34,6 +34,7 @@ use Tk::BrowseEntry;
use Tk::ROText;
use Tk::HList;
use Tk::ItemStyle;
+use File::Glob;
use Pod::Text;
@@ -1380,14 +1381,14 @@ sub do_gui_language_setting {
ja => "Japanese",
nl => "Dutch",
pl => "Polish",
- "pt_br" => "Brasilian",
+ "pt_BR" => "Brasilian",
ru => "Russian",
sk => "Slovak",
sl => "Slovenian",
sr => "Serbian",
vi => "Vietnamese",
- "zh-cn" => "Simplified Chinese",
- "zh-tw" => "Traditional Chinese"
+ "zh_CN" => "Simplified Chinese",
+ "zh_TW" => "Traditional Chinese"
);
$sw->transient($mw);
@@ -1399,7 +1400,7 @@ sub do_gui_language_setting {
my $opt = $sw->BrowseEntry(-label => __("Default language for GUI:"), -variable => \$var);
$opt->insert(0, __("System default"));
my @ll;
- foreach my $p (<"$Master/tlpkg/translations/*.po">) {
+ foreach my $p (<$Master/tlpkg/translations/*.po>) {
$p =~ s!^.*translations/!!;
$p =~ s!\.po$!!;
push @ll, $p;