summaryrefslogtreecommitdiffstats
path: root/perl-install/c/stuff.xs.pl
diff options
context:
space:
mode:
authorMystery Man 535 <uid535@mandriva.org>2002-12-03 20:02:29 +0000
committerMystery Man 535 <uid535@mandriva.org>2002-12-03 20:02:29 +0000
commit6eb04547105e92f777b167c83d9cf2113b84b941 (patch)
tree9c89e726365ca895940a9f7e0be3a1bac274dc01 /perl-install/c/stuff.xs.pl
parent289a674b450b2ea2ddbd02577c88d8db44e02403 (diff)
downloaddrakx-6eb04547105e92f777b167c83d9cf2113b84b941.tar
drakx-6eb04547105e92f777b167c83d9cf2113b84b941.tar.gz
drakx-6eb04547105e92f777b167c83d9cf2113b84b941.tar.bz2
drakx-6eb04547105e92f777b167c83d9cf2113b84b941.tar.xz
drakx-6eb04547105e92f777b167c83d9cf2113b84b941.zip
workaround perl sprintf bug when some parameters are utf8 and some not
Diffstat (limited to 'perl-install/c/stuff.xs.pl')
-rw-r--r--perl-install/c/stuff.xs.pl26
1 files changed, 26 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 60eb94b92..b1ec93bd2 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -520,6 +520,32 @@ iconv(s, from_charset, to_charset)
OUTPUT:
RETVAL
+int
+is_tagged_utf8(s)
+ SV *s
+ CODE:
+ RETVAL = SvUTF8(s);
+ OUTPUT:
+ RETVAL
+
+void
+set_tagged_utf8(s)
+ SV *s
+ CODE:
+ SvUTF8_on(s);
+
+void
+upgrade_utf8(s)
+ SV *s
+ CODE:
+ sv_utf8_upgrade(s);
+
+void
+unset_tagged_utf8(s)
+ SV *s
+ CODE:
+ SvUTF8_off(s);
+
char *
standard_charset()
CODE: