#define Perl_runops_debug pPerl->Perl_runops_debug
#undef runops_debug
#define runops_debug Perl_runops_debug
+#if defined(USE_THREADS)
+#undef Perl_sv_lock
+#define Perl_sv_lock pPerl->Perl_sv_lock
+#undef sv_lock
+#define sv_lock Perl_sv_lock
+#endif
#undef Perl_sv_catpvf_mg
#define Perl_sv_catpvf_mg pPerl->Perl_sv_catpvf_mg
#undef sv_catpvf_mg
#define ptr_table_split Perl_ptr_table_split
#endif
#if defined(HAVE_INTERP_INTERN)
+#undef Perl_sys_intern_clear
+#define Perl_sys_intern_clear pPerl->Perl_sys_intern_clear
+#undef sys_intern_clear
+#define sys_intern_clear Perl_sys_intern_clear
#undef Perl_sys_intern_init
#define Perl_sys_intern_init pPerl->Perl_sys_intern_init
#undef sys_intern_init
# if defined(LEAKTEST)
# endif
#endif
-#undef Perl_lock
-#define Perl_lock pPerl->Perl_lock
-#undef lock
-#define lock Perl_lock
#if defined(PERL_OBJECT)
#endif