From 9efa7689be46a88c6190ad62a1a37762e55a2308 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 3 Jan 2003 12:48:39 +0000
Subject: dgettext needs to have previous behaviour in standalone mode (fixes
 #736)

---
 perl-install/c/stuff.xs.pl | 38 +++++++++++++++++++++++++-------------
 1 file changed, 25 insertions(+), 13 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 6813ef2e3..f8bfed299 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -175,6 +175,31 @@ setMouseLive(display, type, emulate3buttons)
   }
 ';
 
+if ($ENV{C_DRAKX}) { print '
+SV *
+dgettext(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
+
+' } else { print '
+
+char *
+dgettext(domainname, msgid)
+   char * domainname
+   char * msgid
+
+' }
+
 print '
 
 int
@@ -240,19 +265,6 @@ bind_textdomain_codeset(domainname, codeset)
    char * domainname
    char * codeset
 
-SV *
-dgettext(domainname, msgid)
-   char * domainname
-   char * msgid
-
-   CODE:
-   /* always convert to UTF8, because perl will fail to do it correctly during install (in gtk2-perl) */
-   RETVAL = iconv_(dgettext(domainname, msgid), nl_langinfo(CODESET), "UTF-8");
-   SvUTF8_on(RETVAL);
-
-   OUTPUT:
-   RETVAL
-
 int
 KTYP(x)
   int x
-- 
cgit v1.2.1