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/c/stuff.pm | 3 --- perl-install/c/stuff.xs.pl | 7 ------- 2 files changed, 10 deletions(-) (limited to 'perl-install/c') diff --git a/perl-install/c/stuff.pm b/perl-install/c/stuff.pm index 405f896cd..37e0c9a3b 100644 --- a/perl-install/c/stuff.pm +++ b/perl-install/c/stuff.pm @@ -11,7 +11,4 @@ $VERSION = '0.01'; c::stuff->bootstrap($VERSION); -sub from_utf8 { iconv($_[0], "utf-8", standard_charset()) } -sub to_utf8 { iconv($_[0], standard_charset(), "utf-8") } - 1; diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 59c842993..8ad3fd82d 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -666,13 +666,6 @@ upgrade_utf8(s) CODE: sv_utf8_upgrade(s); -char * -standard_charset() - CODE: - RETVAL = nl_langinfo(CODESET); - OUTPUT: - RETVAL - void get_iso_volume_ids(int fd) INIT: -- cgit v1.2.1