summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;