- my $locale = get_locale( $lang );
- my $charset = get_charset( $lang );
- setlocale ( LC_ALL, $locale ) or do {
- warn "couldn't set locale ($lang/$locale)\n";
- next;
- };
-
- my %lang_vars = ( lang => $lang, charset => $charset,
- used_langs => \@LANGUAGES );
+ my $charset = 'UTF-8';
+ my $cat = Packages::I18N::Locale->get_handle($lang)
+ or die "get_handle failed for $lang";
+
+ my %lang_vars = ( po_lang => $lang, ddtp_lang => $lang,
+ charset => $charset,
+ cat => $cat, used_langs => \@LANGUAGES );