}
#undef Perl_cando
-I32
-Perl_cando(pTHXo_ I32 bit, Uid_t effective, Stat_t* statbufp)
+bool
+Perl_cando(pTHXo_ Mode_t mode, Uid_t effective, Stat_t* statbufp)
{
- return ((CPerlObj*)pPerl)->Perl_cando(bit, effective, statbufp);
+ return ((CPerlObj*)pPerl)->Perl_cando(mode, effective, statbufp);
}
#undef Perl_cast_ulong
return ((CPerlObj*)pPerl)->Perl_do_trans(sv);
}
+#undef Perl_do_vecget
+UV
+Perl_do_vecget(pTHXo_ SV* sv, I32 offset, I32 size)
+{
+ return ((CPerlObj*)pPerl)->Perl_do_vecget(sv, offset, size);
+}
+
#undef Perl_do_vecset
void
Perl_do_vecset(pTHXo_ SV* sv)
#undef Perl_pidgone
void
-Perl_pidgone(pTHXo_ int pid, int status)
+Perl_pidgone(pTHXo_ Pid_t pid, int status)
{
((CPerlObj*)pPerl)->Perl_pidgone(pid, status);
}
#undef Perl_wait4pid
I32
-Perl_wait4pid(pTHXo_ int pid, int* statusp, int flags)
+Perl_wait4pid(pTHXo_ Pid_t pid, int* statusp, int flags)
{
return ((CPerlObj*)pPerl)->Perl_wait4pid(pid, statusp, flags);
}
{
return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg);
}
+
+#undef Perl_newANONATTRSUB
+OP*
+Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block)
+{
+ return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block);
+}
+
+#undef Perl_newATTRSUB
+CV*
+Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
+{
+ return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block);
+}
+
+#undef Perl_newMYSUB
+void
+Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
+{
+ ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block);
+}
+
+#undef Perl_my_attrs
+OP *
+Perl_my_attrs(pTHXo_ OP *o, OP *attrs)
+{
+ return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs);
+}
+
+#undef Perl_boot_core_xsutils
+void
+Perl_boot_core_xsutils(pTHXo)
+{
+ ((CPerlObj*)pPerl)->Perl_boot_core_xsutils();
+}
#if defined(PERL_OBJECT)
#endif
#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
#endif
#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
#endif
+#if defined(PERL_IN_XSUTILS_C) || defined(PERL_DECL_PROT)
+#endif
#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
# if defined(LEAKTEST)
# endif
return ((CPerlObj*)pPerl)->Perl_ck_index(o);
}
+#undef Perl_ck_join
+OP *
+Perl_ck_join(pTHXo_ OP *o)
+{
+ return ((CPerlObj*)pPerl)->Perl_ck_join(o);
+}
+
#undef Perl_ck_lengthconst
OP *
Perl_ck_lengthconst(pTHXo_ OP *o)
return ((CPerlObj*)pPerl)->Perl_pp_leavesub();
}
+#undef Perl_pp_leavesublv
+OP *
+Perl_pp_leavesublv(pTHXo)
+{
+ return ((CPerlObj*)pPerl)->Perl_pp_leavesublv();
+}
+
#undef Perl_pp_leavetry
OP *
Perl_pp_leavetry(pTHXo)