It looks like the only way to reliably make Perl_hv_name_set a pure

macro in 5.8.x is to make it available as hv_name_set.
[Otherwise when and where aTHX_ hv gets expanded to foo, hv causes
 warnings or other games when Perl_hv_name_set() is a macro]

p4raw-id: //depot/perl@25475

1 files changed, 2 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 77ca69fa3b..1543059b3f 100644
--- a/gv.c
+++ b/gv.c
@@ -669,7 +669,7 @@ Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 create)
 	GvHV(tmpgv) = newHV();
     stash = GvHV(tmpgv);
     if (!HvNAME_get(stash))
-	Perl_hv_name_set(aTHX_ stash, name, namelen, 0);
+	hv_name_set(stash, name, namelen, 0);
     return stash;
 }
 
@@ -759,7 +759,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 		    stash = GvHV(gv) = newHV();
 
 		if (!HvNAME_get(stash))
-		    Perl_hv_name_set(aTHX_ stash, nambeg, namend - nambeg, 0);
+		    hv_name_set(stash, nambeg, namend - nambeg, 0);
 	    }
 
 	    if (*namend == ':')