X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;h=bcd59085981e704c2f5380b67e4acd35732488d6;hp=1e763696ffd4d3d1a139f5dbed301750e8e1334d;hb=26192e1043cbd952cc7acaa033cc473ffd074085;hpb=01f4a56263ea94b515c77db74e3e918ef240f992 diff --git a/Types.xs b/Types.xs index 1e76369..bcd5908 100644 --- a/Types.xs +++ b/Types.xs @@ -354,7 +354,7 @@ STATIC SV *lt_hint(pTHX) { 0, lt_hash); #else - SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, lt_hash); + SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, 0); if (!val) return 0; hint = *val;