From 6eb04547105e92f777b167c83d9cf2113b84b941 Mon Sep 17 00:00:00 2001
From: Mystery Man 535 <uid535@mandriva.org>
Date: Tue, 3 Dec 2002 20:02:29 +0000
Subject: workaround perl sprintf bug when some parameters are utf8 and some
 not

---
 perl-install/c/stuff.xs.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'perl-install/c')

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:
-- 
cgit v1.2.1