X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Types.xs;h=6187866587bdf1ad1379001be5534f7a946c635f;hb=96041514c33f571bb0f3b8bb7e04b7f9ff6fe17a;hp=cfd32cd0e3ff5dd9958d127bda8c944fba39f008;hpb=ef0c8e746b2468a226f1393c7811e9747db8ee09;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/Types.xs b/Types.xs
index cfd32cd..6187866 100644
--- a/Types.xs
+++ b/Types.xs
@@ -39,20 +39,6 @@
 # define SvREFCNT_inc_simple_NN SvREFCNT_inc
 #endif
 
-#undef ENTERn
-#if defined(ENTER_with_name) && !LT_HAS_PERL(5, 11, 4)
-# define ENTERn(N) ENTER_with_name(N)
-#else
-# define ENTERn(N) ENTER
-#endif
-
-#undef LEAVEn
-#if defined(LEAVE_with_name) && !LT_HAS_PERL(5, 11, 4)
-# define LEAVEn(N) LEAVE_with_name(N)
-#else
-# define LEAVEn(N) LEAVE
-#endif
-
 /* ... Thread safety and multiplicity ...................................... */
 
 #ifndef LT_MULTIPLICITY
@@ -462,7 +448,7 @@ STATIC void lt_map_delete(pTHX_ const OP *o) {
  MUTEX_LOCK(&lt_op_map_mutex);
 #endif
 
- ptable_map_store(lt_op_map, o, NULL);
+ ptable_map_delete(lt_op_map, o);
 
 #ifdef USE_ITHREADS
  MUTEX_UNLOCK(&lt_op_map_mutex);