X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=8af7cd6671c8662ca7e09e3ea02fb6933ab9a814;hp=b6ad798ebbe50604af0198ef7d183e8ebb90e5f2;hb=a1d67c5f3a8c72b0d81d6e6c2aaee64921930491;hpb=f73405816c83f0e2816e81421a8b6cf72d5e3151

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index b6ad798..8af7cd6 100644
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -440,7 +440,7 @@ sub pp_const {
  if ($c eq 'AV') {
   $n = $sv->FILL + 1
  } elsif ($c eq 'HV') {
-  $n = 2 * $sv->FILL
+  $n = 2 * $sv->KEYS
  }
 
  return undef, $n