summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-01-24 11:41:34 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-01-24 11:41:34 +0000
commit1344c430fe7852aab13944e6c1831a8c7d2c6bb1 (patch)
treea04a317febe514afd2f3696fa710f39d19aacb25 /perl-install/interactive.pm
parentf131284da380e1abcb14c1a37198337ab223c55a (diff)
downloaddrakx-backup-do-not-use-1344c430fe7852aab13944e6c1831a8c7d2c6bb1.tar
drakx-backup-do-not-use-1344c430fe7852aab13944e6c1831a8c7d2c6bb1.tar.gz
drakx-backup-do-not-use-1344c430fe7852aab13944e6c1831a8c7d2c6bb1.tar.bz2
drakx-backup-do-not-use-1344c430fe7852aab13944e6c1831a8c7d2c6bb1.tar.xz
drakx-backup-do-not-use-1344c430fe7852aab13944e6c1831a8c7d2c6bb1.zip
fix non latin1 post-install perl-gtk2 apps, seems like perl upgrading strings to utf8 is somewhat broken (dunno why), so now we bind the codeset or our textdomains to utf8 and tag the translated strings to utf8, when using gtk
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 58b019a37..9761d83a1 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -105,6 +105,8 @@ sub vnew {
if (!$@) {
my $o = interactive::gtk->new;
if ($icon && $icon ne 'default' && !$::isWizard) { $o->{icon} = $icon } else { undef $o->{icon} }
+ c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
+ $::need_utf8_i18n = 1;
return $o;
}
} else {