From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 30 Nov 2011 06:43:15 +0000 (-0800)
Subject: Correct comment in hv.c:S_share_hek_flags
X-Git-Tag: v5.15.6~291
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f52337cfba08c2d05a6207cdbb890803491547fd

Correct comment in hv.c:S_share_hek_flags

It says that allocate one block of memory with the HEK immediately
following the HE, so we can find the HEK from the HE.  Of course we
can find the HEK from the HE, as the HE points to it.  The two terms
were apparently transposed.
---

diff --git a/hv.c b/hv.c
index 4920af3..1019b31 100644
--- a/hv.c
+++ b/hv.c
@@ -2735,7 +2735,7 @@ S_share_hek_flags(pTHX_ const char *str, I32 len, register U32 hash, int flags)
 	/* We don't actually store a HE from the arena and a regular HEK.
 	   Instead we allocate one chunk of memory big enough for both,
 	   and put the HEK straight after the HE. This way we can find the
-	   HEK directly from the HE.
+	   HE directly from the HEK.
 	*/
 
 	Newx(k, STRUCT_OFFSET(struct shared_he,