More SvPV consting. And other related drive-by refactoring.

p4raw-id: //depot/perl@24800

1 files changed, 1 insertions, 1 deletions

diff --git a/taint.c b/taint.c
index 5ed1eaf7bd..6acad15980 100644
--- a/taint.c
+++ b/taint.c
@@ -145,7 +145,7 @@ Perl_taint_env(pTHX)
     if (svp && *svp && SvTAINTED(*svp)) {
 	STRLEN len;
 	const bool was_tainted = PL_tainted;
-	const char *t = SvPV(*svp, len);
+	const char *t = SvPV_const(*svp, len);
 	const char *e = t + len;
 	PL_tainted = was_tainted;
 	if (t < e && isALNUM(*t))