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

diff --git a/Types.xs b/Types.xs
index 375d771..6187866 100644
--- a/Types.xs
+++ b/Types.xs
@@ -448,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);