This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
D'oh. Mistake in the DYNAMIC_ENV_FETCH conditional code
authorNicholas Clark <nick@ccl4.org>
Sat, 22 Nov 2003 23:37:24 +0000 (23:37 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 22 Nov 2003 23:37:24 +0000 (23:37 +0000)
reported by Craig Berry

p4raw-id: //depot/perl@21779

hv.c

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