X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FI18N%2FLocale.pm;h=623bfc7f9ce1f53e4eed09bfef5bf0183f28fa7a;hb=aee28210328cf1867daba3d397bf77d0baa24ccc;hp=2bfaef2b43d0c2defff0bad1b73b7fa507a750a5;hpb=a5b7db12d70653d35344cb6567db1c5e0cd326d1;p=deb%2Fpackages.git

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index 2bfaef2..623bfc7 100644
--- a/lib/Packages/I18N/Locale.pm
+++ b/lib/Packages/I18N/Locale.pm
@@ -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] }