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 /ext/Opcode | |
| 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 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 067ffdb424..78c7605331 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -268,9 +268,9 @@ PPCODE: hv = gv_stashpv(Package, GV_ADDWARN); /* should exist already */ - if (strNE(HvNAME(hv),"main")) { - Safefree(HvNAME(hv)); - HvNAME(hv) = savepv("main"); /* make it think it's in main:: */ + if (strNE(HvNAME_get(hv),"main")) { + /* make it think it's in main:: */ + Perl_hv_name_set(aTHX_ hv, "main", 4, 0); hv_store(hv,"_",1,(SV *)PL_defgv,0); /* connect _ to global */ SvREFCNT_inc((SV *)PL_defgv); /* want to keep _ around! */ } |