From 51a37f8016223ef5212790d4185d213114f2fd9b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 18 Sep 2005 21:52:25 +0000 Subject: 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 --- perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 188e193f41..0b21655c46 100644 --- a/perl.c +++ b/perl.c @@ -3415,7 +3415,7 @@ S_init_main_stash(pTHX) SvREFCNT_dec(GvHV(gv)); GvHV(gv) = (HV*)SvREFCNT_inc(PL_defstash); SvREADONLY_on(gv); - Perl_hv_name_set(aTHX_ PL_defstash, "main", 4, 0); + hv_name_set(PL_defstash, "main", 4, 0); PL_incgv = gv_HVadd(gv_AVadd(gv_fetchpv("INC",TRUE, SVt_PVAV))); GvMULTI_on(PL_incgv); PL_hintgv = gv_fetchpv("\010",TRUE, SVt_PV); /* ^H */ -- cgit v1.2.1