return ((CPerlObj*)pPerl)->Perl_apply(type, mark, sp);
}
-#undef Perl_assertref
-void
-Perl_assertref(pTHXo_ OP* o)
-{
- ((CPerlObj*)pPerl)->Perl_assertref(o);
-}
-
#undef Perl_avhv_exists_ent
bool
Perl_avhv_exists_ent(pTHXo_ AV *ar, SV* keysv, U32 hash)
}
#undef Perl_cando
-I32
-Perl_cando(pTHXo_ I32 bit, I32 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_open(gv, name, len, as_raw, rawmode, rawperm, supplied_fp);
}
+#undef Perl_do_open9
+bool
+Perl_do_open9(pTHXo_ GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num)
+{
+ return ((CPerlObj*)pPerl)->Perl_do_open9(gv, name, len, as_raw, rawmode, rawperm, supplied_fp, svs, num);
+}
+
#undef Perl_do_pipe
void
Perl_do_pipe(pTHXo_ SV* sv, GV* rgv, GV* wgv)
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_ingroup
-I32
-Perl_ingroup(pTHXo_ I32 testgid, I32 effective)
+bool
+Perl_ingroup(pTHXo_ Gid_t testgid, Uid_t effective)
{
return ((CPerlObj*)pPerl)->Perl_ingroup(testgid, effective);
}
#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_scan_bin
-UV
+NV
Perl_scan_bin(pTHXo_ char* start, I32 len, I32* retlen)
{
return ((CPerlObj*)pPerl)->Perl_scan_bin(start, len, retlen);
}
#undef Perl_scan_hex
-UV
+NV
Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen)
{
return ((CPerlObj*)pPerl)->Perl_scan_hex(start, len, retlen);
}
#undef Perl_scan_oct
-UV
+NV
Perl_scan_oct(pTHXo_ char* start, I32 len, I32* retlen)
{
return ((CPerlObj*)pPerl)->Perl_scan_oct(start, len, retlen);
#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_ck_match(o);
}
+#undef Perl_ck_method
+OP *
+Perl_ck_method(pTHXo_ OP *o)
+{
+ return ((CPerlObj*)pPerl)->Perl_ck_method(o);
+}
+
#undef Perl_ck_null
OP *
Perl_ck_null(pTHXo_ OP *o)
return ((CPerlObj*)pPerl)->Perl_pp_method();
}
+#undef Perl_pp_method_named
+OP *
+Perl_pp_method_named(pTHXo)
+{
+ return ((CPerlObj*)pPerl)->Perl_pp_method_named();
+}
+
#undef Perl_pp_mkdir
OP *
Perl_pp_mkdir(pTHXo)