{
return ((CPerlObj*)pPerl)->Perl_runops_debug();
}
+#if defined(USE_THREADS)
+
+#undef Perl_sv_lock
+SV*
+Perl_sv_lock(pTHXo_ SV *sv)
+{
+ return ((CPerlObj*)pPerl)->Perl_sv_lock(sv);
+}
+#endif
#undef Perl_sv_catpvf_mg
void
#endif
#if defined(HAVE_INTERP_INTERN)
+#undef Perl_sys_intern_clear
+void
+Perl_sys_intern_clear(pTHXo)
+{
+ ((CPerlObj*)pPerl)->Perl_sys_intern_clear();
+}
+
#undef Perl_sys_intern_init
void
Perl_sys_intern_init(pTHXo)
# if defined(LEAKTEST)
# endif
#endif
-
-#undef Perl_lock
-SV*
-Perl_lock(pTHXo_ SV *sv)
-{
- return ((CPerlObj*)pPerl)->Perl_lock(sv);
-}
#if defined(PERL_OBJECT)
#endif