5.9.5 fix

[perl/modules/Lexical-Types.git] / Types.xs

diff --git a/Types.xs b/Types.xs
index 338201462e072b96920c9450c3c68305c44ad392..8970e9116ecf6822520cc46eed2a94d203bd9327 100644 (file)
--- a/Types.xs
+++ b/Types.xs
@@ -183,7 +183,7 @@ STATIC U32 lt_hash = 0;
 STATIC SV *lt_hint(pTHX) {
 #define lt_hint() lt_hint(aTHX)
  SV *id;
-#if LT_HAS_PERL(5, 10, 0)
+#if LT_HAS_PERL(5, 9, 5)
  id = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash,
                                      NULL,
                                      __PACKAGE__, __PACKAGE_LEN__,