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

[perl/modules/indirect.git] / indirect.xs

diff --git a/indirect.xs b/indirect.xs
index 0bfc3cd83679cabaa0d3390c7fa372090c36331f..dbcaad15c77d6250114a613c3151a3318375d2ba 100644 (file)
--- a/indirect.xs
+++ b/indirect.xs
@@ -405,8 +405,7 @@ STATIC SV *indirect_hint(pTHX) {
                                        indirect_hash);
 #else
  {
-  SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__,
-                                                                 indirect_hash);
+  SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, 0);
   if (!val)
    return 0;
   hint = *val;