# 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",
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 {
return $lang2charset{$lang} || $lang2charset{default};
}
-sub _ { return gettext( $_[0] ) }
sub _g { return gettext( $_[0] ) }
sub N_ { return $_[0] }