diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 9d8923096..d297225af 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -78,7 +78,9 @@ sub from_utf8 { } sub to_utf8 { my ($s) = @_; - Locale::gettext::iconv($s, undef, "utf-8"); #- undef = locale charmap = nl_langinfo(CODESET) + my $str = Locale::gettext::iconv($s, undef, "utf-8"); #- undef = locale charmap = nl_langinfo(CODESET) + c::set_tagged_utf8($str); + $str; } #- This is needed because text printed by Gtk2 will always be encoded |