summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/c/stuff.xs.pl')
-rw-r--r--perl-install/c/stuff.xs.pl38
1 files changed, 25 insertions, 13 deletions
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