X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlapi.h;h=5e5ac2825b039c61d963da0ae9f5d8b378a886e0;hb=bf9b2f8f129695d329aed9658a2b6dae62c5f454;hp=8ba6504071bdb9ef74a41ebdd794084f3759a0b0;hpb=2841d78411ddadd05a6fbe13e0be06f765fad3fb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlapi.h b/perlapi.h
index 8ba6504..5e5ac28 100755
--- a/perlapi.h
+++ b/perlapi.h
@@ -508,8 +508,6 @@ START_EXTERN_C
 #define PL_sys_intern		(*Perl_Isys_intern_ptr(aTHXo))
 #undef  PL_tainting
 #define PL_tainting		(*Perl_Itainting_ptr(aTHXo))
-#undef  PL_thr_key
-#define PL_thr_key		(*Perl_Ithr_key_ptr(aTHXo))
 #undef  PL_threadnum
 #define PL_threadnum		(*Perl_Ithreadnum_ptr(aTHXo))
 #undef  PL_threads_mutex
@@ -880,8 +878,12 @@ START_EXTERN_C
 #define PL_hexdigit		(*Perl_Ghexdigit_ptr(NULL))
 #undef  PL_malloc_mutex
 #define PL_malloc_mutex		(*Perl_Gmalloc_mutex_ptr(NULL))
+#undef  PL_op_mutex
+#define PL_op_mutex		(*Perl_Gop_mutex_ptr(NULL))
 #undef  PL_patleave
 #define PL_patleave		(*Perl_Gpatleave_ptr(NULL))
+#undef  PL_thr_key
+#define PL_thr_key		(*Perl_Gthr_key_ptr(NULL))
 
 #endif /* !PERL_CORE */
 #endif /* PERL_OBJECT || MULTIPLICITY */