diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-04-07 12:06:42 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-07 11:15:46 +0000 |
| commit | 525c8498a83d993a86ed1c5080d595040c6663f5 (patch) | |
| tree | c55f20f14e3cf2ad2e4f4946383731692b1666ce /hv.c | |
| parent | f6c40018883591db2d51d79f553aec3e4561b3ca (diff) | |
| download | perl-525c8498a83d993a86ed1c5080d595040c6663f5.tar.gz | |
Re: perl@15772
Message-ID: <20020407110641.O10686@plum.flirble.org>
p4raw-id: //depot/perl@15775
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -299,7 +299,7 @@ S_hv_fetch_flags(pTHX_ HV *hv, const char *key, I32 klen, I32 lval, int flags) if (env) { sv = newSVpvn(env,len); SvTAINTED_on(sv); - if (key != keysave) + if (flags & HVhek_FREEKEY) Safefree(key); return hv_store(hv,key,klen,sv,hash); } |