From a4e6acb7d49063a117261eaf85f31fcfd281bfe7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Dec 2005 09:14:01 +0000 Subject: - i had foolishly removed c::iconv whereas it was used still used by c::from_utf8 and c::to_utf8 - anyway, moving c::from_utf8 and c::to_utf8 to common::from_utf8 and common::to_utf8 - making them use Locale::gettext::iconv - Locale::gettext::iconv transform undef into standard charset (1.05-2mdk) - drop c::standard_charset (now unused) --- perl-install/common.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'perl-install/common.pm') 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 -- cgit v1.2.1