diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2001-02-24 03:10:14 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-24 00:23:35 +0000 |
| commit | e5a2d3c618db5a123a542dca0a73c3f5542a4c83 (patch) | |
| tree | 93bf6e151b54c53a8df119fa1a6450adefefd355 /hv.c | |
| parent | d0fd64a3666aac14003c7a199da7fd6305b946fc (diff) | |
| download | perl-e5a2d3c618db5a123a542dca0a73c3f5542a4c83.tar.gz | |
Re: I'm losing the war...
Message-ID: <007501c09dde$a9b84420$2f7b55c2@vad>
hv_store() not working correctly in ENV_IS_CASELESS case.
p4raw-id: //depot/perl@8919
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -435,8 +435,8 @@ Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen, SV *val, register U32 has return 0; #ifdef ENV_IS_CASELESS else if (mg_find((SV*)hv,'E')) { - SV *sv = sv_2mortal(newSVpvn(key,klen)); - key = strupr(SvPVX(sv)); + key = savepvn(key,klen); + key = strupr(key); hash = 0; } #endif |