diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index c88451d85..0894bef71 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -68,6 +68,15 @@ sub translate { $s; } +sub from_utf8 { + my ($s) = @_; + Locale::gettext::iconv($s, "utf-8", undef); #- undef = locale charmap = nl_langinfo(CODESET) +} +sub to_utf8 { + my ($s) = @_; + Locale::gettext::iconv($s, undef, "utf-8"); #- undef = locale charmap = nl_langinfo(CODESET) +} + #- This is needed because text printed by Gtk2 will always be encoded #- in UTF-8; #- we first check if LC_ALL is defined, because if it is, changing |