return ((CPerlObj*)pPerl)->Perl_sv_setref_iv(rv, classname, iv);
}
+#undef Perl_sv_setref_uv
+SV*
+Perl_sv_setref_uv(pTHXo_ SV* rv, const char* classname, UV uv)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_setref_uv(rv, classname, uv);
+}
+
#undef Perl_sv_setref_nv
SV*
Perl_sv_setref_nv(pTHXo_ SV* rv, const char* classname, NV nv)
}
#undef Perl_sv_utf8_upgrade
-void
+STRLEN
Perl_sv_utf8_upgrade(pTHXo_ SV *sv)
{
- ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv);
+ return ((CPerlObj*)pPerl)->Perl_sv_utf8_upgrade(sv);
}
#undef Perl_sv_utf8_downgrade
#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
# if defined(LEAKTEST)
# endif
-# if defined(EBCDIC)
-# endif
#endif
#if defined(PERL_OBJECT)
#endif