From 558943d5f47b4a82a9667461df6f45aaccca1dfd Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 27 Jul 2012 03:56:39 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgrgui.pl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'Master') 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; -- cgit v1.2.3