D'oh. Mistake in the DYNAMIC_ENV_FETCH conditional code

reported by Craig Berry

p4raw-id: //depot/perl@21779

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index 8ed7f03a7c..29a2cd5fe6 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);
 	}
     }