return ((CPerlObj*)pPerl)->Perl_my_fflush_all();
}
+#undef Perl_my_fork
+Pid_t
+Perl_my_fork()
+{
+ dTHXo;
+ return ((CPerlObj*)pPerl)->Perl_my_fork();
+}
+
+#undef Perl_atfork_lock
+void
+Perl_atfork_lock()
+{
+ dTHXo;
+ ((CPerlObj*)pPerl)->Perl_atfork_lock();
+}
+
+#undef Perl_atfork_unlock
+void
+Perl_atfork_unlock()
+{
+ dTHXo;
+ ((CPerlObj*)pPerl)->Perl_atfork_unlock();
+}
+
#undef Perl_my_lstat
I32
Perl_my_lstat(pTHXo)
return ((CPerlObj*)pPerl)->Perl_sv_compile_2op(sv, startp, code, avp);
}
-#undef Perl_sv_getcwd
+#undef Perl_getcwd_sv
int
-Perl_sv_getcwd(pTHXo_ SV* sv)
+Perl_getcwd_sv(pTHXo_ SV* sv)
{
- return ((CPerlObj*)pPerl)->Perl_sv_getcwd(sv);
+ return ((CPerlObj*)pPerl)->Perl_getcwd_sv(sv);
}
#undef Perl_sv_dec
#undef Perl_re_dup
REGEXP*
-Perl_re_dup(pTHXo_ REGEXP* r)
+Perl_re_dup(pTHXo_ REGEXP* r, clone_params* param)
{
- return ((CPerlObj*)pPerl)->Perl_re_dup(r);
+ return ((CPerlObj*)pPerl)->Perl_re_dup(r, param);
}
#undef Perl_fp_dup