diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-12-15 08:48:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-12-15 08:48:51 +0000 |
| commit | 226bc14e18ffe6c106d28680ea935cad227a9e05 (patch) | |
| tree | 170f4b1a3214a90592075fd3e42ff07e21134d31 /perl-install/lang.pm | |
| parent | d78b368c177b069dc2a157f6a094df272a385eab (diff) | |
| download | drakx-226bc14e18ffe6c106d28680ea935cad227a9e05.tar drakx-226bc14e18ffe6c106d28680ea935cad227a9e05.tar.gz drakx-226bc14e18ffe6c106d28680ea935cad227a9e05.tar.bz2 drakx-226bc14e18ffe6c106d28680ea935cad227a9e05.tar.xz drakx-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.pm | 6 |
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; } |