From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 22 Nov 2003 23:37:24 +0000 (+0000)
Subject: D'oh. Mistake in the DYNAMIC_ENV_FETCH conditional code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fd3d16ee33a2f80699a3491d0bedc18c17ccd80;p=p5sagit%2Fp5-mst-13.2.git

D'oh. Mistake in the DYNAMIC_ENV_FETCH conditional code
reported by Craig Berry

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

diff --git a/hv.c b/hv.c
index 8ed7f03..29a2cd5 100644
--- a/hv.c
+++ b/hv.c
@@ -689,7 +689,7 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 	if (env) {
 	    sv = newSVpvn(env,len);
 	    SvTAINTED_on(sv);
-	    return hv_fetch_common(hv,keysv,key,keylen,HV_FETCH_ISSTORE,sv,
+	    return hv_fetch_common(hv,keysv,key,klen,flags,HV_FETCH_ISSTORE,sv,
 				   hash);
 	}
     }