X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=autovivification.xs;h=cf0df8c474f1546b307bdfc6b2c709b96d5b6a4b;hb=refs%2Ftags%2Frt62800;hp=a42b9803aa74ef2d46f71c976a885715d575df41;hpb=ad00023390af9c24d0387cf02af806fe180f68bd;p=perl%2Fmodules%2Fautovivification.git

diff --git a/autovivification.xs b/autovivification.xs
index a42b980..cf0df8c 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -288,7 +288,9 @@ STATIC U32 a_hash = 0;
 STATIC UV a_hint(pTHX) {
 #define a_hint() a_hint(aTHX)
  SV *hint;
-#if A_HAS_PERL(5, 9, 5)
+#ifdef cop_hints_fetch_pvn
+ hint = cop_hints_fetch_pvn(PL_curcop, __PACKAGE__, __PACKAGE_LEN__, a_hash, 0);
+#elif A_HAS_PERL(5, 9, 5)
  hint = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash,
                                        NULL,
                                        __PACKAGE__, __PACKAGE_LEN__,
@@ -389,7 +391,7 @@ STATIC void a_map_delete(pTHX_ const OP *o) {
  MUTEX_LOCK(&a_op_map_mutex);
 #endif
 
- ptable_map_store(a_op_map, o, NULL);
+ ptable_map_delete(a_op_map, o);
 
 #ifdef USE_ITHREADS
  MUTEX_UNLOCK(&a_op_map_mutex);