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
#undef Perl_croak
void
-Perl_croak(pTHXo_ const char* pat)
+Perl_croak(pTHXo_ const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_croak_nocontext
void
-Perl_croak_nocontext(const char* pat)
+Perl_croak_nocontext(const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_die_nocontext
OP*
-Perl_die_nocontext(const char* pat)
+Perl_die_nocontext(const char* pat, ...)
{
dTHXo;
OP* retval;
#undef Perl_deb_nocontext
void
-Perl_deb_nocontext(const char* pat)
+Perl_deb_nocontext(const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_form_nocontext
char*
-Perl_form_nocontext(const char* pat)
+Perl_form_nocontext(const char* pat, ...)
{
dTHXo;
char* retval;
}
+#undef Perl_mess_nocontext
+SV*
+Perl_mess_nocontext(const char* pat, ...)
+{
+ dTHXo;
+ SV* retval;
+ va_list args;
+ va_start(args, pat);
+ retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
+ va_end(args);
+ return retval;
+
+}
+
#undef Perl_warn_nocontext
void
-Perl_warn_nocontext(const char* pat)
+Perl_warn_nocontext(const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_warner_nocontext
void
-Perl_warner_nocontext(U32 err, const char* pat)
+Perl_warner_nocontext(U32 err, const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_newSVpvf_nocontext
SV*
-Perl_newSVpvf_nocontext(const char* pat)
+Perl_newSVpvf_nocontext(const char* pat, ...)
{
dTHXo;
SV* retval;
#undef Perl_sv_catpvf_nocontext
void
-Perl_sv_catpvf_nocontext(SV* sv, const char* pat)
+Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_sv_setpvf_nocontext
void
-Perl_sv_setpvf_nocontext(SV* sv, const char* pat)
+Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_sv_catpvf_mg_nocontext
void
-Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat)
+Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_sv_setpvf_mg_nocontext
void
-Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat)
+Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)
{
dTHXo;
va_list args;
#undef Perl_deb
void
-Perl_deb(pTHXo_ const char* pat)
+Perl_deb(pTHXo_ const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_die
OP*
-Perl_die(pTHXo_ const char* pat)
+Perl_die(pTHXo_ const char* pat, ...)
{
OP* retval;
va_list args;
return ((CPerlObj*)pPerl)->Perl_do_aexec(really, mark, sp);
}
+#undef Perl_do_aexec5
+bool
+Perl_do_aexec5(pTHXo_ SV* really, SV** mark, SV** sp, int fd, int flag)
+{
+ return ((CPerlObj*)pPerl)->Perl_do_aexec5(really, mark, sp, fd, flag);
+}
+
#undef Perl_do_binmode
int
Perl_do_binmode(pTHXo_ PerlIO *fp, int iotype, int flag)
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_form
char*
-Perl_form(pTHXo_ const char* pat)
+Perl_form(pTHXo_ const char* pat, ...)
{
char* retval;
va_list args;
}
#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_init_debugger
+void
+Perl_init_debugger(pTHXo)
+{
+ ((CPerlObj*)pPerl)->Perl_init_debugger();
+}
+
#undef Perl_init_stacks
void
Perl_init_stacks(pTHXo)
#undef Perl_io_close
bool
-Perl_io_close(pTHXo_ IO* io)
+Perl_io_close(pTHXo_ IO* io, bool not_implicit)
{
- return ((CPerlObj*)pPerl)->Perl_io_close(io);
+ return ((CPerlObj*)pPerl)->Perl_io_close(io, not_implicit);
}
#undef Perl_invert
#undef Perl_mess
SV*
-Perl_mess(pTHXo_ const char* pat, va_list* args)
+Perl_mess(pTHXo_ const char* pat, ...)
+{
+ SV* retval;
+ va_list args;
+ va_start(args, pat);
+ retval = ((CPerlObj*)pPerl)->Perl_vmess(pat, &args);
+ va_end(args);
+ return retval;
+
+}
+
+#undef Perl_vmess
+SV*
+Perl_vmess(pTHXo_ const char* pat, va_list* args)
{
- return ((CPerlObj*)pPerl)->Perl_mess(pat, args);
+ return ((CPerlObj*)pPerl)->Perl_vmess(pat, args);
+}
+
+#undef Perl_qerror
+void
+Perl_qerror(pTHXo_ SV* err)
+{
+ ((CPerlObj*)pPerl)->Perl_qerror(err);
}
#undef Perl_mg_clear
#undef Perl_newSVpvf
SV*
-Perl_newSVpvf(pTHXo_ const char* pat)
+Perl_newSVpvf(pTHXo_ const char* pat, ...)
{
SV* retval;
va_list args;
#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_sv_catpvf
void
-Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat)
+Perl_sv_catpvf(pTHXo_ SV* sv, const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_sv_setpvf
void
-Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat)
+Perl_sv_setpvf(pTHXo_ SV* sv, const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_sv_vcatpvfn
void
-Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)
+Perl_sv_vcatpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
{
- ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
+ ((CPerlObj*)pPerl)->Perl_sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
}
#undef Perl_sv_vsetpvfn
void
-Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)
+Perl_sv_vsetpvfn(pTHXo_ SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted)
{
- ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
+ ((CPerlObj*)pPerl)->Perl_sv_vsetpvfn(sv, pat, patlen, args, svargs, svmax, maybe_tainted);
}
#undef Perl_swash_init
#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);
}
#undef Perl_warn
void
-Perl_warn(pTHXo_ const char* pat)
+Perl_warn(pTHXo_ const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_warner
void
-Perl_warner(pTHXo_ U32 err, const char* pat)
+Perl_warner(pTHXo_ U32 err, const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_sv_catpvf_mg
void
-Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat)
+Perl_sv_catpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_sv_setpvf_mg
void
-Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat)
+Perl_sv_setpvf_mg(pTHXo_ SV *sv, const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_dump_indent
void
-Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat)
+Perl_dump_indent(pTHXo_ I32 level, PerlIO *file, const char* pat, ...)
{
va_list args;
va_start(args, pat);
#undef Perl_default_protect
void*
-Perl_default_protect(pTHXo_ int *excpt, protect_body_t body)
+Perl_default_protect(pTHXo_ int *excpt, protect_body_t body, ...)
{
void* retval;
va_list args;
{
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)
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_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_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)
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)
return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
}
+#undef Perl_pp_setstate
+OP *
+Perl_pp_setstate(pTHXo)
+{
+ return ((CPerlObj*)pPerl)->Perl_pp_setstate();
+}
+
#undef Perl_pp_sge
OP *
Perl_pp_sge(pTHXo)