X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;h=8cf501cc631aec3b350d6baa35c57879ed373b4e;hp=56b676c7bf454076bd4bfcd1c775784567b416d2;hb=0f014b1bd35a5d46d7dc77599e3e11f1d4cb33bc;hpb=b4cd1e777ea16a620c3709bbf732add1814d495c

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__,