#undef Perl_do_binmode
int
-Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
+Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int mode)
{
- return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, flag);
+ return ((CPerlObj*)pPerl)->Perl_do_binmode(fp, iotype, mode);
}
#undef Perl_do_close
#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
#endif
+#undef Perl_do_join
+void
+Perl_do_join(pTHXo_ SV* sv, SV* del, SV** mark, SV** sp)
+{
+ ((CPerlObj*)pPerl)->Perl_do_join(sv, del, mark, sp);
+}
+
#undef Perl_do_open
bool
Perl_do_open(pTHXo_ GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp)
{
return ((CPerlObj*)pPerl)->Perl_rninstr(big, bigend, little, lend);
}
+
+#undef Perl_rsignal
+Sighandler_t
+Perl_rsignal(pTHXo_ int i, Sighandler_t t)
+{
+ return ((CPerlObj*)pPerl)->Perl_rsignal(i, t);
+}
#if !defined(HAS_RENAME)
#endif
{
((CPerlObj*)pPerl)->Perl_vwarner(err, pat, args);
}
+
+#undef Perl_whichsig
+I32
+Perl_whichsig(pTHXo_ char* sig)
+{
+ return ((CPerlObj*)pPerl)->Perl_whichsig(sig);
+}
#if defined(USE_PURE_BISON)
#else
#endif