X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Types.xs;h=29e8d87ff13b163f9f318f6afb8363036e0d7b0e;hb=4c2bd13c1fbd960115c9c623791811d5db1112f5;hp=338201462e072b96920c9450c3c68305c44ad392;hpb=802bedc36b8f65e33ea579641fe0dc70b4e59e9d;p=perl%2Fmodules%2FLexical-Types.git diff --git a/Types.xs b/Types.xs index 3382014..29e8d87 100644 --- a/Types.xs +++ b/Types.xs @@ -114,7 +114,6 @@ STATIC void lt_thread_cleanup(pTHX_ void *); STATIC void lt_thread_cleanup(pTHX_ void *ud) { int *level = ud; - SV *id; if (*level) { *level = 0; @@ -182,20 +181,20 @@ 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) - id = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash, - NULL, - __PACKAGE__, __PACKAGE_LEN__, - 0, - lt_hash); + SV *hint; +#if LT_HAS_PERL(5, 9, 5) + hint = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash, + NULL, + __PACKAGE__, __PACKAGE_LEN__, + 0, + lt_hash); #else SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, lt_hash); if (!val) return 0; - id = *val; + hint = *val; #endif - return (id && SvOK(id)) ? id : NULL; + return (hint && SvOK(hint)) ? hint : NULL; } /* ... op => info map ...................................................... */