Now that the backreference array has no NULL entries, and is correctly

[perl5.git] / taint.c

diff --git a/taint.c b/taint.c
index ed1af74..9de7748 100644 (file)
--- a/taint.c
+++ b/taint.c
@@ -161,7 +161,7 @@ Perl_taint_env(pTHX)
 #endif /* !VMS */
 
     for (e = misc_env; *e; e++) {
-       SV ** const svp = hv_fetch(GvHVn(PL_envgv), *e, strlen(*e), FALSE);
+       SV * const * const svp = hv_fetch(GvHVn(PL_envgv), *e, strlen(*e), FALSE);
        if (svp && *svp != &PL_sv_undef && SvTAINTED(*svp)) {
            TAINT;
            taint_proper("Insecure $ENV{%s}%s", *e);