From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 7 Apr 2002 11:06:42 +0000 (+0100)
Subject: Re: perl@15772
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=525c8498a83d993a86ed1c5080d595040c6663f5;p=p5sagit%2Fp5-mst-13.2.git

Re: perl@15772
Message-ID: <20020407110641.O10686@plum.flirble.org>

p4raw-id: //depot/perl@15775
---

diff --git a/hv.c b/hv.c
index d5b7274..1d967ce 100644
--- a/hv.c
+++ b/hv.c
@@ -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);
 	}