diff options
| author | Andy Lester <andy@petdance.com> | 2006-01-06 03:57:19 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-06 16:58:14 +0000 |
| commit | a4fc7abc9c5502fa20253f620ede1e956c44caed (patch) | |
| tree | 3bb2f1a057d5e3483cc90405fd50bd22f50894ef /taint.c | |
| parent | 97aff369fa5580e7a888d4fa4c86be74ab000409 (diff) | |
| download | perl-a4fc7abc9c5502fa20253f620ede1e956c44caed.tar.gz | |
hv_fetchs() support
Message-ID: <20060106155719.GB9035@petdance.com>
p4raw-id: //depot/perl@26676
Diffstat (limited to 'taint.c')
| -rw-r--r-- | taint.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -130,7 +130,7 @@ Perl_taint_env(pTHX) } #endif /* VMS */ - svp = hv_fetch(GvHVn(PL_envgv),"PATH",4,FALSE); + svp = hv_fetchs(GvHVn(PL_envgv),"PATH",FALSE); if (svp && *svp) { if (SvTAINTED(*svp)) { TAINT; @@ -144,7 +144,7 @@ Perl_taint_env(pTHX) #ifndef VMS /* tainted $TERM is okay if it contains no metachars */ - svp = hv_fetch(GvHVn(PL_envgv),"TERM",4,FALSE); + svp = hv_fetchs(GvHVn(PL_envgv),"TERM",FALSE); if (svp && *svp && SvTAINTED(*svp)) { STRLEN len; const bool was_tainted = PL_tainted; |