X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FI18N%2FLocale.pm;fp=lib%2FPackages%2FI18N%2FLocale.pm;h=b8d2abe50d3f6c5b41568b6a168b3fa002096dc8;hb=5b7751516899f5e57ba7320f5624ab390a2835e6;hp=2bfaef2b43d0c2defff0bad1b73b7fa507a750a5;hpb=2ec757bb58907b15c43548be5601d4f2b8c7caac;p=deb%2Fpackages.git

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index 2bfaef2..b8d2abe 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",
@@ -53,7 +52,6 @@ sub get_charset {
     return $lang2charset{$lang} || $lang2charset{default};
 }
 
-sub _ { return gettext( $_[0] ) }
 sub _g { return gettext( $_[0] ) }
 sub N_ { return $_[0] }