From: Andrew Main <zefram@fysh.org>
Date: Wed, 29 Dec 2010 23:03:09 +0000 (+0100)
Subject: Compatibility fix for perl 5.13.7 and greater
X-Git-Tag: rt62800^0
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2d7facf29733bcbf4b3eee31376d8d4cb439b402;p=perl%2Fmodules%2Fautovivification.git

Compatibility fix for perl 5.13.7 and greater

This fixes RT #62800.
---

diff --git a/autovivification.xs b/autovivification.xs
index f198b1d..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__,