diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-12-10 08:05:58 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-12-14 16:34:01 +0000 |
| commit | e593d2fe2376152f45b2d89d0e59a1b9b2af5bb5 (patch) | |
| tree | 78bbad6d0e88570395fdea2379fcd73e05824427 | |
| parent | 8167a60add3f75b2a48bb3ae0fdd7f9d853bcbdd (diff) | |
| download | perl-e593d2fe2376152f45b2d89d0e59a1b9b2af5bb5.tar.gz | |
Re: Change 21862
Message-ID: <20031210040558.GC1584@ratsnest.hole>
(1st hunk), plus the equivalent for hv_delete_common
p4raw-id: //depot/perl@21905
| -rw-r--r-- | hv.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -381,6 +381,8 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, return 0; if (keysv) { + if (flags & HVhek_FREEKEY) + Safefree(key); key = SvPV(keysv, klen); flags = 0; is_utf8 = (SvUTF8(keysv) != 0); @@ -873,6 +875,8 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, return Nullsv; if (keysv) { + if (k_flags & HVhek_FREEKEY) + Safefree(key); key = SvPV(keysv, klen); k_flags = 0; is_utf8 = (SvUTF8(keysv) != 0); |