]> git.vpit.fr Git - perl/modules/autovivification.git/commitdiff
The last argument to hv_fetch is the lvalue flag, not the hash
authorVincent Pit <vince@profvince.com>
Mon, 18 Jul 2011 09:40:23 +0000 (11:40 +0200)
committerVincent Pit <vince@profvince.com>
Mon, 18 Jul 2011 09:46:09 +0000 (11:46 +0200)
This could have caused entry vivifications in %^H on 5.8.

autovivification.xs

index fb6015bd469d4add92c303703bdaf1a4df13cac1..a45cda3f4de46a6c82a4d0f2de1536f5a7974ac0 100644 (file)
@@ -320,7 +320,7 @@ STATIC UV a_hint(pTHX) {
                                        0,
                                        a_hash);
 #else
- SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, a_hash);
+ SV **val = hv_fetch(GvHV(PL_hintgv), __PACKAGE__, __PACKAGE_LEN__, 0);
  if (!val)
   return 0;
  hint = *val;