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 (file)
--- 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);
        }
     }