summaryrefslogtreecommitdiff
path: root/perlapi.c
diff options
context:
space:
mode:
Diffstat (limited to 'perlapi.c')
-rwxr-xr-xperlapi.c28
1 files changed, 28 insertions, 0 deletions
diff --git a/perlapi.c b/perlapi.c
index f897146b6f..f0824984b3 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -3659,6 +3659,34 @@ Perl_sv_pvbyte(pTHXo_ SV *sv)
return ((CPerlObj*)pPerl)->Perl_sv_pvbyte(sv);
}
+#undef Perl_sv_utf8_upgrade
+void
+Perl_sv_utf8_upgrade(pTHXo_ SV *sv)
+{
+ ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv);
+}
+
+#undef Perl_sv_utf8_downgrade
+bool
+Perl_sv_utf8_downgrade(pTHXo_ SV *sv, bool fail_ok)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_utf8_downgrade(sv, fail_ok);
+}
+
+#undef Perl_sv_utf8_encode
+void
+Perl_sv_utf8_encode(pTHXo_ SV *sv)
+{
+ ((CPerlObj*)pPerl)->Perl_sv_utf8_encode(sv);
+}
+
+#undef Perl_sv_utf8_decode
+bool
+Perl_sv_utf8_decode(pTHXo_ SV *sv)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_utf8_decode(sv);
+}
+
#undef Perl_sv_force_normal
void
Perl_sv_force_normal(pTHXo_ SV *sv)