diff options
Diffstat (limited to 'Master')
| -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; |