From: Vincent Pit <vince@profvince.com>
Date: Fri, 8 Aug 2008 19:47:52 +0000 (+0200)
Subject: The right method to get the number of keys from a B::HV is ->KEYS
X-Git-Tag: v0.03~7
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=commitdiff_plain;h=a1d67c5f3a8c72b0d81d6e6c2aaee64921930491

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 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