From 1344c430fe7852aab13944e6c1831a8c7d2c6bb1 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 24 Jan 2003 11:41:34 +0000
Subject: 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

---
 perl-install/c/stuff.xs.pl | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'perl-install/c')

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 403735ae2..aa9fda760 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -179,21 +179,6 @@ setMouseLive(display, type, emulate3buttons)
 ';
 
 print '
-SV *
-dgettext_utf8(domainname, msgid)
-   char * domainname
-   char * msgid
-
-   CODE:
-   /* always convert to UTF8, because perl will fail to do it correctly
-    * during install (and it needs to be done for gtk2-perl) - presumably
-    * due to incorrect locales */
-   RETVAL = iconv_(dgettext(domainname, msgid), nl_langinfo(CODESET), "UTF-8");
-   SvUTF8_on(RETVAL);
-
-   OUTPUT:
-   RETVAL
-
 char *
 dgettext(domainname, msgid)
    char * domainname
-- 
cgit v1.2.1