summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-12-15 08:48:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-12-15 08:48:51 +0000
commit226bc14e18ffe6c106d28680ea935cad227a9e05 (patch)
tree170f4b1a3214a90592075fd3e42ff07e21134d31 /perl-install/lang.pm
parentd78b368c177b069dc2a157f6a094df272a385eab (diff)
downloaddrakx-backup-do-not-use-226bc14e18ffe6c106d28680ea935cad227a9e05.tar
drakx-backup-do-not-use-226bc14e18ffe6c106d28680ea935cad227a9e05.tar.gz
drakx-backup-do-not-use-226bc14e18ffe6c106d28680ea935cad227a9e05.tar.bz2
drakx-backup-do-not-use-226bc14e18ffe6c106d28680ea935cad227a9e05.tar.xz
drakx-backup-do-not-use-226bc14e18ffe6c106d28680ea935cad227a9e05.zip
use Locale::gettext for dgettext, bindtextdomain and bind_textdomain_codeset instead of module c
(that way we can also use dngettext, and it's more modular)
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index fa7090213..e4e6df54d 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -956,7 +956,7 @@ sub langsLANGUAGE {
sub utf8_should_be_needed {
my ($locale) = @_;
- my @l = uniq(grep { $_ ne 'C' } map { l2charset($_) } $locale->{lang}, langs($locale->{langs}));
+ my @l = uniq(grep { $_ ne 'C' } map { l2charset($_) } langs($locale->{langs}));
@l > 1 || any { /utf|unicode/ } @l;
}
@@ -1253,9 +1253,9 @@ sub bindtextdomain() {
my $localedir = "$ENV{SHARE_PATH}/locale" . ($::prefix ? "_special" : '');
c::init_setlocale();
- c::bind_textdomain_codeset('libDrakX', 'UTF-8');
$::need_utf8_i18n = 1;
- c::bindtextdomain('libDrakX', $localedir);
+ Locale::gettext::bind_textdomain_codeset('libDrakX', 'UTF-8');
+ Locale::gettext::bindtextdomain('libDrakX', $localedir);
$localedir;
}