diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-04-24 06:35:43 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-25 08:10:05 +0000 |
| commit | 324a0d1887cfcef6494645efbaf97082c32ae679 (patch) | |
| tree | 94389bdaeeb43c81d23eae1743ff52771876a6e5 /hv.c | |
| parent | b205eb13670a13cc13d3d289985c28e180cea0ff (diff) | |
| download | perl-324a0d1887cfcef6494645efbaf97082c32ae679.tar.gz | |
Move hash action constants to hv.h
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510704240735t50cfc159g59b55726ac5ac64b@mail.gmail.com>
p4raw-id: //depot/perl@31064
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -216,11 +216,6 @@ S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, /* (klen == HEf_SVKEY) is special for MAGICAL hv entries, meaning key slot * contains an SV* */ -#define HV_FETCH_ISSTORE 0x01 -#define HV_FETCH_ISEXISTS 0x02 -#define HV_FETCH_LVALUE 0x04 -#define HV_FETCH_JUST_SV 0x08 - /* =for apidoc hv_store @@ -963,7 +958,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, if (keysv) { if (SvSMAGICAL(hv) && SvGMAGICAL(hv)) - keysv = hv_magic_uvar_xkey(hv, keysv, -1); + keysv = hv_magic_uvar_xkey(hv, keysv, HV_DELETE); if (k_flags & HVhek_FREEKEY) Safefree(key); key = SvPV_const(keysv, klen); |