X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FI18N%2FLocale.pm;h=623bfc7f9ce1f53e4eed09bfef5bf0183f28fa7a;hb=1cc237c732b99138c613a79c59db361f75f9dd71;hp=10fc3cc46e8e8f9554c36140b152c45badc1334c;hpb=56d4b3ed57e20359e5ea46feabb850cf4a94caf2;p=deb%2Fpackages.git

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index 10fc3cc..623bfc7 100644
--- a/lib/Packages/I18N/Locale.pm
+++ b/lib/Packages/I18N/Locale.pm
@@ -7,8 +7,10 @@ use Exporter;
 use Locale::gettext;
 
 our @ISA = qw( Exporter );
-our @EXPORT = qw( get_locale get_charset _g _ N_ );
-
+# 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_ );
 
 my %lang2loc = ( en => "en_US",
 		 cs => "cs_CZ",
@@ -19,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 {
@@ -50,7 +49,6 @@ sub get_charset {
     return $lang2charset{$lang} || $lang2charset{default};
 }
 
-sub _ { return gettext( $_[0] ) }
 sub _g { return gettext( $_[0] ) }
 sub N_ { return $_[0] }