#undef Perl_fprintf_nocontext
#endif
+#undef Perl_cv_const_sv
+SV*
+Perl_cv_const_sv(pTHXo_ CV* cv)
+{
+ return ((CPerlObj*)pPerl)->Perl_cv_const_sv(cv);
+}
+
+#undef Perl_cv_undef
+void
+Perl_cv_undef(pTHXo_ CV* cv)
+{
+ ((CPerlObj*)pPerl)->Perl_cv_undef(cv);
+}
+
#undef Perl_cx_dump
void
Perl_cx_dump(pTHXo_ PERL_CONTEXT* cs)
{
return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
}
+
+#undef Perl_do_close
+bool
+Perl_do_close(pTHXo_ GV* gv, bool not_implicit)
+{
+ return ((CPerlObj*)pPerl)->Perl_do_close(gv, not_implicit);
+}
#if !defined(WIN32)
#endif
#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
return ((CPerlObj*)pPerl)->Perl_to_uni_lower_lc(c);
}
+#undef Perl_is_utf8_char
+int
+Perl_is_utf8_char(pTHXo_ U8 *p)
+{
+ return ((CPerlObj*)pPerl)->Perl_is_utf8_char(p);
+}
+
#undef Perl_is_utf8_alnum
bool
Perl_is_utf8_alnum(pTHXo_ U8 *p)
return ((CPerlObj*)pPerl)->Perl_newSViv(i);
}
+#undef Perl_newSVuv
+SV*
+Perl_newSVuv(pTHXo_ UV u)
+{
+ return ((CPerlObj*)pPerl)->Perl_newSVuv(u);
+}
+
#undef Perl_newSVnv
SV*
Perl_newSVnv(pTHXo_ NV n)