From a4fc7abc9c5502fa20253f620ede1e956c44caed Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Fri, 6 Jan 2006 03:57:19 -0600 Subject: hv_fetchs() support Message-ID: <20060106155719.GB9035@petdance.com> p4raw-id: //depot/perl@26676 --- taint.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'taint.c') diff --git a/taint.c b/taint.c index efe5dc413e..bf42ddfd27 100644 --- a/taint.c +++ b/taint.c @@ -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; -- cgit v1.2.1