diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-09-18 21:52:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-18 21:52:25 +0000 |
| commit | 51a37f8016223ef5212790d4185d213114f2fd9b (patch) | |
| tree | b3648ca0b191c5a7fb60a438e6ad2a4ef7516601 /perl.c | |
| parent | 2b33924249a3e03558df740efaba2154c35e2bcb (diff) | |
| download | perl-51a37f8016223ef5212790d4185d213114f2fd9b.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 */ |