The right method to get the number of keys from a B::HV is ->KEYS

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index b6ad798ebbe50604af0198ef7d183e8ebb90e5f2..8af7cd6671c8662ca7e09e3ea02fb6933ab9a814 100644 (file)
--- 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