From bfcb351493b9793586f4b514100d4f902a85f4fd Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 21 May 2005 12:31:52 +0000
Subject: Move hv_name, hv_eiter and hv_riter into a new aux structure. Provide
 (more efficient) _get and _set macros. Adjust the core to use them.

p4raw-id: //depot/perl@24526
---
 pp_hot.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pp_hot.c')

diff --git a/pp_hot.c b/pp_hot.c
index 93184cf1d3..1f9abc38e2 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1717,7 +1717,7 @@ PP(pp_helem)
 	    RETURN;
 	}
 	if (PL_op->op_private & OPpLVAL_INTRO) {
-	    if (HvNAME(hv) && isGV(*svp))
+	    if (HvNAME_get(hv) && isGV(*svp))
 		save_gp((GV*)*svp, !(PL_op->op_flags & OPf_SPECIAL));
 	    else {
 		if (!preeminent) {
@@ -3089,7 +3089,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp)
 	if (!sep || ((sep - name) == 5 && strnEQ(name, "SUPER", 5))) {
 	    /* the method name is unqualified or starts with SUPER:: */ 
 	    packname = sep ? CopSTASHPV(PL_curcop) :
-		stash ? HvNAME(stash) : packname;
+		stash ? HvNAME_get(stash) : packname;
 	    if (!packname)
 		Perl_croak(aTHX_
 			   "Can't use anonymous symbol table for method lookup");
-- 
cgit v1.2.1