]> git.deb.at Git - deb/packages.git/blobdiff - lib/Packages/I18N/Locale.pm
Packages::I18N::Locale: Use UTF-8 as charset for all locales
[deb/packages.git] / lib / Packages / I18N / Locale.pm
index 2bfaef2b43d0c2defff0bad1b73b7fa507a750a5..623bfc7f9ce1f53e4eed09bfef5bf0183f28fa7a 100644 (file)
@@ -10,8 +10,7 @@ our @ISA = qw( Exporter );
 # the reason we have both _g and _ is simply that there
 # seem to be some situations where Perl doesn't handle _
 # correctly. If in doubt use _g
-our @EXPORT = qw( get_locale get_charset _g _ N_ );
-
+our @EXPORT = qw( get_locale get_charset _g N_ );
 
 my %lang2loc = ( en => "en_US",
                 cs => "cs_CZ",
@@ -22,12 +21,9 @@ my %lang2loc = ( en => "en_US",
                 default => "en_US",
                 );
 
-# most of them can probably changed to UTF-8 in Sarge
-# as there are more available UTF-8 locales then
+# this can probably be removed now that all locales are available in UTF-8
 my %lang2charset = (
                    default => 'UTF-8',
-                   ja => 'EUC-JP',
-                   uk => 'KOI8-U',
                    );
 
 sub get_locale {
@@ -53,7 +49,6 @@ sub get_charset {
     return $lang2charset{$lang} || $lang2charset{default};
 }
 
-sub _ { return gettext( $_[0] ) }
 sub _g { return gettext( $_[0] ) }
 sub N_ { return $_[0] }