diff options
| author | Norbert Preining <preining@logic.at> | 2012-07-27 03:56:39 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2012-07-27 03:56:39 +0000 |
| commit | 558943d5f47b4a82a9667461df6f45aaccca1dfd (patch) | |
| tree | 8983a80becee7680f584031b1b55dad41e2a6b43 /Master/texmf/scripts | |
| parent | 56bfda68a630ee3b9975577908e06d10790a9ff0 (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
Diffstat (limited to 'Master/texmf/scripts')
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui.pl | 9 |
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; |