diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-21 12:31:52 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-21 12:31:52 +0000 |
| commit | bfcb351493b9793586f4b514100d4f902a85f4fd (patch) | |
| tree | f1b02cb4c98cea12a34ec920125c266c8f49086e /perl.c | |
| parent | ca732855658630b07dee4aa9ea6ae952226bd828 (diff) | |
| download | perl-bfcb351493b9793586f4b514100d4f902a85f4fd.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3061,7 +3061,7 @@ S_init_main_stash(pTHX) SvREFCNT_dec(GvHV(gv)); GvHV(gv) = (HV*)SvREFCNT_inc(PL_defstash); SvREADONLY_on(gv); - HvNAME(PL_defstash) = savepvn("main", 4); + Perl_hv_name_set(aTHX_ 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 */ |