diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-14 00:14:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-14 00:14:04 +0000 |
| commit | 7fae4e64c5e2903183a8656ece6686238ddef215 (patch) | |
| tree | fcfe3d9ba5c065b79e40d57f28c003565b6bedac /hv.c | |
| parent | 837485b6cd4b757519a4ac6f03f3857c2fcf4844 (diff) | |
| download | perl-7fae4e64c5e2903183a8656ece6686238ddef215.tar.gz | |
[asperl] added AS patch#5 (patch #4 was intentionally skipped after
discussion)
p4raw-id: //depot/asperl@521
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -142,7 +142,7 @@ hv_fetch(HV *hv, char *key, U32 klen, I32 lval) if (HvNAME(hv) && strEQ(HvNAME(hv),ENV_HV_NAME)) { char *gotenv; - if ((gotenv = ENV_getenv(key)) != Nullch) { + if ((gotenv = PerlEnv_getenv(key)) != Nullch) { sv = newSVpv(gotenv,strlen(gotenv)); SvTAINTED_on(sv); return hv_store(hv,key,klen,sv,hash); @@ -172,8 +172,6 @@ hv_fetch_ent(HV *hv, SV *keysv, I32 lval, register U32 hash) if (SvRMAGICAL(hv)) { if (mg_find((SV*)hv,'P')) { - static HE mh; - sv = sv_newmortal(); keysv = sv_2mortal(newSVsv(keysv)); mg_copy((SV*)hv, sv, (char*)keysv, HEf_SVKEY); @@ -234,7 +232,7 @@ hv_fetch_ent(HV *hv, SV *keysv, I32 lval, register U32 hash) if (HvNAME(hv) && strEQ(HvNAME(hv),ENV_HV_NAME)) { char *gotenv; - if ((gotenv = ENV_getenv(key)) != Nullch) { + if ((gotenv = PerlEnv_getenv(key)) != Nullch) { sv = newSVpv(gotenv,strlen(gotenv)); SvTAINTED_on(sv); return hv_store_ent(hv,keysv,sv,hash); |