The last argument to hv_fetch is the lvalue flag, not the hash

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

diff --git a/Types.xs b/Types.xs
index 1e763696ffd4d3d1a139f5dbed301750e8e1334d..bcd59085981e704c2f5380b67e4acd35732488d6 100644 (file)
--- 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;