diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-25 14:06:55 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-25 14:06:55 +0000 |
| commit | 4ba4de046b58ba69d5377ba3b48b04bbfd30638f (patch) | |
| tree | ba1c433417faa12e1aab33f7e32d9e6f4669b916 /ext | |
| parent | 209b62a30de35b357c434b3ec3b38cb713369ba5 (diff) | |
| download | perl-4ba4de046b58ba69d5377ba3b48b04bbfd30638f.tar.gz | |
Replace all uses of HvNAME with the appropriate HvNAME_get or
HvNAME_set
p4raw-id: //depot/perl@24573
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 2 | ||||
| -rw-r--r-- | ext/ByteLoader/byterun.c | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 087e1511ad..a503627b21 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -347,6 +347,8 @@ typedef char *pvindex; mg_set(*hv_store(GvHV(gv_fetchpv("SIG", TRUE, SVt_PVHV)), \ name, strlen(name), cv, 0)) +#define BSET_xhv_name(hv, name) Perl_hv_name_set(aTHX_ hv, name, strlen(name), 0) + /* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about * what version of Perl it's being called under, it should do a 'use 5.006_001' or * equivalent. However, since the header includes checks requiring an exact match in diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 7a8d378d50..065a0299d7 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -524,7 +524,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) { pvindex arg; BGET_pvindex(arg); - HvNAME(bstate->bs_sv) = arg; + BSET_xhv_name(bstate->bs_sv, arg); break; } case INSN_HV_STORE: /* 67 */ |