From: Vincent Pit <vince@profvince.com>
Date: Fri, 31 Dec 2010 16:36:54 +0000 (+0100)
Subject: Use cop_hints_fetch_pvn() whenever possible
X-Git-Tag: v0.10~15
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=0f014b1bd35a5d46d7dc77599e3e11f1d4cb33bc

Use cop_hints_fetch_pvn() whenever possible

refcounted_he_fetch() never was public, but in recent 5.13.x versions it is
no longer linkable.
---

diff --git a/Types.xs b/Types.xs
index 56b676c..8cf501c 100644
--- a/Types.xs
+++ b/Types.xs
@@ -316,7 +316,9 @@ STATIC U32 lt_hash = 0;
 STATIC SV *lt_hint(pTHX) {
 #define lt_hint() lt_hint(aTHX)
  SV *hint;
-#if LT_HAS_PERL(5, 9, 5)
+#ifdef cop_hints_fetch_pvn
+ hint = cop_hints_fetch_pvn(PL_curcop, __PACKAGE__, __PACKAGE_LEN__, lt_hash,0);
+#elif LT_HAS_PERL(5, 9, 5)
  hint = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash,
                                        NULL,
                                        __PACKAGE__, __PACKAGE_LEN__,