Use a union for storing the shared hash key reference count, rather

than messy pointer hacks.

p4raw-id: //depot/perl@27000

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 82960f3a37..e9f7795892 100644
--- a/perl.c
+++ b/perl.c
@@ -1100,7 +1100,7 @@ perl_destruct(pTHXx)
 		HE * const next = HeNEXT(hent);
 		Perl_warner(aTHX_ packWARN(WARN_INTERNAL),
 		     "Unbalanced string table refcount: (%ld) for \"%s\"",
-		     (long)(HeVAL(hent) - Nullsv), HeKEY(hent));
+		     (long)hent->he_valu.hent_refcount, HeKEY(hent));
 		Safefree(hent);
 		hent = next;
 	    }